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LL NN NN KK KK 000000 BBBBBBBB JJ PPPPPPPP SSSSSSSS 11 5 
LL NN NN KK KK 000060 BBBBBBBB JJ PPPPPPPP SSSSSSSS 11 . 
LL NN NN KK KK 00 00 6B JJ PP PP SS 1111 ; 
LL NN NN KK KK 00 00 8B BB JJ PP PP SS 1111 : 
LL NNNN NN KK KK 00 00 8B BB JJ PP PP SS 11 : 
LL NNNN NN KK 00 00 8B BB JJ PP PP SS 11 ; 
LL NN WN NN KKKKKK 00 00 88888868 JJ PPPPPPPP SSSSSS 11 ; 
LL NN WN NN KKKKKK 00 00 88888888 JJ PPPPPPPP SSSSSS 11 ; 
LL NN NNNN KK 00 00 8B BB JJ JJ PP SS 11 ; 
LL NN NNNN KK KK 00 00 8B BB JJ JJ PP SS 11 : 
LL NN NN KK KK 00 00 88 BB JJ JJ PP SS 11 cece ; 
LL NN NN KK KK 00 00 88 BB JJ JJ PP SS 11 cece : 
LLLLLLLLLL NN NN KK KK 000000 BBBBBBBB JJJJJJ PP SSSSSSSS 111111 eeee ; 
LLLLLLLLLL NN NN KK KK 000000 BBBBBBBB JJJJJJ PP SSSSSSSS 111111 cove ‘ 
LL III] SSSSSSSS ; 
LL HII] SSSSSSSS : 
LL I] SS ; 
Li I] SS 
LL I] $$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] ss 
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LLLLLLLLLL 111i! SSSSSSSS 
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objpass' 
(ident = ‘v04-000' 
-addressing_mode 
(external : oe ral 
ghonentornet = long_ relative 


)ez 


begin 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i++ 
i MODULE: LNK_OBJPASS1 
FACILITY: LINKER 
ABSTRACT: Pass one of all object modules of this Link. 
HISTORY: 
VERSION: X01.00 
AUTHOR: T.J. PORTER 30-DEC-76 
MODIFIED BY: 


v04-045 qurotse some 14-May-1984 
Adjust logic in PROSYRG so that Lnk$gw_nudfsyms 
doesn’t get decremented too many times. 


v04-044 ADE0003 Alan D. Eldridge 4-May-1984 
Fix access violation in routine PROSYMBOL. 


v04-043 ADE0002 Alan D. Eldridge 11-May-1984 


AX-11 Bliss-32 V4.0 
LINKER.SRC LNKOBJPS1.B 


Fix bug in Sh Sp module name Length’. 


V04-042 ADE0001 - Eldridge 35-Mar-1984 
If GSMATCH high s t “3 Th ignore date comparison 


securen shareable image library entry and shareable image 


V04-041 JWT0154 Jim Teague Nb — tia 
C blocks are not always clean when memory 
allocated for them. Th 4 coyece, r diculous i 
for psect length to show up in the Gate ,precuses 
in the Debugger Module/Psect Table (DM 


V03-040 ywr0132 eogue 16-Aug-1983 
Adjust ordering 4 weary fdbs that are created. 
A module that specifies several files in LNKOPT 
records caused the Linker to append the LNKOPT 
file fdbs in reverse order! 


v03-039 JwT0130 Jim Teague 28-Jul-1983 
More scrutiny for Linker Options Records. 


v03-038 JwT0128 Jim Teague 24-Jul-1983 
Fix environment set idet problem. 


v03-037 Jwr0125 Jim Teague 23-Jun-1983 
Reincarnate univ=* when accompanied by /noexe. 


v03-036 JWT0121 Jim Teague 20-May-1983 
Sound the death dre for UNIVERSAL=*, 


v03-035 gvror 13 Jim Teague 20-Apr-1983 
Filter universe” bit on of prsentng » symbols; 
Call Sgetjpi to get number of open Til 


v03-034 JWT0109 Jim Teague 
Adjust code for Linker Spt ions Record. 


v03-033 suvege? Jim Teague 14-Mar-1983 
New CLI interface. Also implemented code for 
Linker Options Record. 
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13-Apr-1983 
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1 100 vO3-032 JwT0071 eaque 02-Dec-1982 

! : 1 Added NAME and Dent iFiea TION options. 

1 1 5 v03-031 JwWwT0061 Jia eoque 22-0c t-1982 

; : $ Add debugger image Aa. on to images Linked /debug. 

1 1 v03-030 ywT0052 Jia oagye 15-Sep-1982 

1 1 Fix bug which mad Ay option-defined symbols to be 

' : excluded from STB. 

1 110 V03-029 JWT0047 Jia 06-Aug-1982 

' Mi Fix the Linker psect onaent bug, once ~y or all! 
' 118 v03-028 JWT0045 Jim Tea 30-Jul-1982 


Fix bug in entity id ai snatch error message. 


yoczo00 1$-$ep-1984 99:18:38 «| Heinen sees neon seer 6%2;1 Page 045 


if: Sep 1944 M3:18:88 = nen SAEs iacobsPS 6$2,1 Page 143 
03-027 Hinpse 


Jia 15-J 
ix psect ol iqnasne Oa aan ’ caused all cenit tot tone to 
&@ psect to have maxin ignment. 


v03-026 JwT0039 Jim Teogue 23-Jun-1982 
add mask in order to retain SYMSV_LCLSYM attribute. 
This keeps module local symbols out of cross references. 


v03-025 guT0033 eague 25-May- 1982 
OMD$V_NOBINs ee a FOB and propagate to FDBSV_OMDNOBIN 
pee aaiieamaaited psect alignment if present in \PROPSECTDEF 


v03-024 BLS0161 Benn Schreiber 19-Mar-1982 
Correct v03-021 handling of selective search procedures 
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LWK_OBJPASS1 16-Sep-1984 00:12: AX-11 Bliss-32 V4. p 4 
yoe2000 eet rE wee tg coe aT ee ee 29 12) 
'e¢ 
i FUNCTIONAL DESCRIPTION: 


i THIS vy Hy I$ peur TO "it's ALL OBJECT MODULES 
VAL witty Aa. CT MODULE 


| 

| 

E ALL GSD vf | 

DUL Tact A AND rin Ro SYRBOL AND. PeSECTION 
| 

| 


i THIS ROUTINE IGNORES THE CONTENT OF TIR, DBG AND LNK RECORDS. 


require *PREFIX'; 
forward routine 


ot ts — a — — —s = Ls a ss ts a 


SINS SSSI OP OPO EE 


a a a a a ai i in BB Bt a a a a a a a ta a a 


OOOCOCOSOSSOOSOSOSOOSCCOOOOOOOOOOO OO OOOOOOO 


compare_env, 


prolnkrec, ' PROCESS LINKER OPTIONS RECORD 
fresteddentry. ' CHECK PSECT DEF. ENTRY AND DEFINE IT 
ink oe : novalue, ' INSERT SYMBOL IN UNDEFINED SYMBOL LIST 
seqchk ' CHECK RECORD SEQUENCE 
prohdr, ' PROCESS MODULE HEADER RECORDS 
delete _psect, ! DELETE SHAREABLE IMAGE yg _fnen OTHER CLUSTERS 
fndpscmapent, ' FIND PSECT MAPPING TABLE ENT 
alloc ' ALLOCATE OMD NODE BLOCK 
tnkScSmpare. omd, : ARE OMD NODE BLOCKS 
propsectdef, ' PROCESS PSECT DEFINITIONS 
crefilter, ' CROSS REFERENCE FILTER FOR SYMBOLS 
prosyanet. !' PROCESS SYMBOLS 
7 ls, ' FRONT END FOR SYMBOL DEFS/REFS 
entpats ' FRONT END FOR ENTRY POINT 
procedef, ! FRONT END FOR PROCEDURE > all ag 
proeom : oe END OF MODULE RECORD 
countdb ' COUNT DEBUG AND TRACEBACK RECORDS 
compare ide, : E RANDOM T BLOCKS 
alloc_idc, ' ALLOCATE RANDOM IDENT BLOCK 
randentity, PROCESS RANDOM 

Lloc_env, ' ALLOCATE ENVI BLOC 

nsudfenv : novalue, ' SERT UNDEFINED ENVIRONMENT 

Link$fndenvmap, ' FIND ENVIRONMENT MAPPING TABLE ENTRY 
proses. ' PROCESS ENVIRONMENT 

calsymbols, ' FRONT END FOR LOCAL SY ae 

localentpnt, ' FRONT END FOR LOCAL ENTRY POINTS 

sec olarecedst, ! FRONT END FOR LOCAL PROCEDURE DEFS 
erp ' PROCESS GSD RECORDS 

ay ree csobj, ' PROCESS AN OBJECT MODULE 

inkSobjpass!’: ! DO PASS 1 


library *LIBL32° ; 
Library ‘DATBAS' ; 
cequive *ISGENC’ ; 
i 


SYSTEM DATA STRUCTURES 
INTERNAL DATA BASE DEFINITIONS 
IMAGE SECTION DEFINITIONS AND OBJECT LANG. DEFS. 


a a a a ht a a a st a tn ws as a a = Ls ss a 8s ss a a ts a a ss 
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LE RB APASS! 13s spn 198 15:48:89 EC TNRER SRESLAKOBIPST 682; 1 seg 


H 687 1 ! ENSURE THAT SYM$ SYMBOLS CORRESPOND TO GSY$ SYMBOLS 

; ? 8 : } AND THE PSC$ SYMBOLS CORRESPOND TO GPS$ SYMBOLS 

; 690 1 Lif (sym$m_weak and gsy$m_weak) + Athen Xwarn (' Renan WEAK NEQ GSYSM_WEAK') %fi; 

$ 691 1 2if (sym$m_def and gsy$m_def) eal Zthen Zwarn PE te NEQ GSYSM_DEF') %fi; 

; $36 1 Zif (sym$m_uni and gsy$m_un/) eal Athen twarn $M_UNI NEQ GSYSM_UNI') Zfi; 

; 95 1 Rif (sym$m_rel and gsy$m_rel) eal Zthen %warn C SYMSMCREL NEQ GSYSM_REL') Zfi; 

5 694 1 kif (psc$m_pic and gp $n_pi » eal Athen Xwarn ('PSCSM_PIC NEQ GPSSM_PIC') 2fi; 

: 695 1 Zif (psc$m_lib and gps$m_lib) eal Athen Zwarn § ('PSCSM_LIB NEQ GPSS$M_LIB') 2fi; 

; 696 1 if (psc$m_ovr and gps$m_ovr) eal then Zwarn ('PSCSM_OVR NEQ ol i afi; 

; 697 1kif (psc$m_rel and gps$m_rel) eal Athen Zwarn§ ('PSCSM_REL NEQ GPSSM_REL') Zf1; 

; 43 1 Zif (psc$m_gbl and geen gbl) eql Zthen warn t Pecen cot NEQ ht ot afi; 

; 4 1 Zif (psc$moshr and gps$m-shr) eql Athen Zwarn ('PSCSM_SHR NEQ GPSSM_SHR') 2fi; 

3 0 12if (psc$m_exe and gps$m_exe) eql Athen Zwarn ('PSCSM_EXE NEQ GPSSM_EXE') fi; 

3 701 1 2if (psc$mird and gps$mird)  eql Zthen %warn (‘PSCSA_RD NEQ GPSS$M_RD') %fi; 

: 7 é 1 Zif (psc$mowrt and gps$m_wrt) eql 0 then warn ('PSCSM_ORT NEQ GPSSM-WRT') Xfi; 

3 psc$m_vec and gps$m_vec) eq then warn VEC N _V 3 
34 At ! Xif (psc$m_ d $ ) LO then % ("PSCSM_VEC NEQ GPSSM_VEC') 2fi 

3 9 0705 1 global Literal 

; 19 4} : psc$m_pscbits = pscéa.. ats or pscém_ a or pecea.. aeyr ! PSECT ATTRIBUTES ALL TOGETHER 

3 or psc$m_rel or psc$m or psc$m_shr 

s \¢ 0708 1 or pacéan exe or +H He or pecan wrt 

; i; 444 : or psc$m_vec, 

3 215 0711 1 psc$m_shrbits = psc$m_gbl or psc$m_shr or psc$m_ovr ; ! PSECTS CONSIDERED FOR SHAREABLE IMAGE 
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$_nudfsyms, 
g-nudtisyms, 


Lnk$gt_jpilst, 
: HFlestere. 


ra 
ink$Sal_sytbl fmt, 
ink$al_valctltb, 


Lnk$aw_version : block Clid$c_size, byte], 


ink$gl_ctlmsk : block C, bytel, 
Lnk$gl_pshrnum, 
: block C, byte), 


ink$gl“clulst : vector . 
ink$gl_defclu : block C, bytel, 
ink$gl_record, 

nk$gl_shrsyms, 


ink$gl_curclu : ref block C, byte], 

ink$gl_curfil : ref block C, byte, 

ink$gl_curomd : ref block C, bytel, 

ink$gl_Libsym : ref block C, extess 

snkSae imgid : vector C, byte, 

shrfiltype, 

defiletype, 

Libfiltype; 

al 

ink$gl_omddst : initial (0) 

ink$gw_pscdst : word initial (0), 

ink$gl_udflst : vector (2) initial (¢ 
ink$gl 
ink$gl_ 

ink$gl_envtree, 

ink$gl_udfenyv : vector (2) initial ( 
ink$gl_ud 
Lnk$gl_ud 

ink$gl_udflsy : vector (2) initial ( 
ink$gl_ud 
ink$gl_ud 


ink$gl_entitree, 
ink$gl_dbgtfr, 
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: block Crab$c_bin, byte], 
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LINKER. SRCJLNKOBJPS1.852;1 
UNDEFINED SYMBOLS 
F UNDEFINED LOCAL SYMBOLS 
P-SECTION WITH DIFFERERENT ALIGNMENT 
P-SECTION ALIGNMENT 
IN CONTAINING TRANSFER ADDRESS IS NOT EXE/REL 
RECORD > be 
RECORD TYPE 
IN ILLEGAL SEQUENCE 
N OBJ MOD BIGGER THAN ONE IN SHR IMAGE 
STRUCTURE LEVEL IN MODULE 
UNDEF INED ENVIRONME 
DEFINED SYMBOL 
R ISSUED WARNINGS 
FILENAME LENGTH 


RAB USED TO OPEN THE FILE 

SYMBOL LISTING FORMAT DESCRIPTION TABLE ADDRESS 
CREF BY VALUE CONTROL TABLE ADDRESS 

VERSION ARRAY 


ROL MASK 
NUMBER OF reste TO BE OUTPUT TO SHAREABLE IMAGE 
IMGSTA’’ 


NAM 
CLUSTER DESCRIPTOR LISTHEAD 


! RECORD NUMBER IN THE FILE 


NUMBER OF SHAREABLE IMAGE SYMBOLS REFERENCED 
F cane fone oF ones 


CURRENT OMD POINTER 

NTS TO SYMBOL CAUSING LOAD OF LIBRARY MODULE 
STORAGE OF IMAGE IDENT 

-EXE string 

OBJ string 

-OLB string 


uv 
occ 
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HICH CONTRIBUTE TO DST 
THE ABOVE OBJMODS 
STHEAD 
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! LIST HEAD FOR UNDEFINED LOCAL SYMBOLS 
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12 
16-56 -1984 00:12: AX-11 Bliss-32 V4.0-74 Page 8 
Ve-8ep-1966 15:40:39 — ELTNKER SRESLNKOBJPST -B92; 1 % 35 
tne gt gt tps : ref block C, bytel, th 4 494 CONTAINING IT 
ink$gl-tfrpsc : ref block C, byted, i POINTER TO PSECT CONTAINING IT 
[Mega; -cogest ia, ! ESTIMATE OF NUMBER OF BYTES FOR DST 
Lnk$gl_omdtree, ! TREE HEAD FOR 06) MODULE DESCRIPTORS 
ink$gw_dbgrecs word, ! NUMBER OF DEBUG RECORDS 
Lnk$gw nt ites word ! NUMBER OF FILES OPENED 
nk$gw_nmodules word, i NUMBER OF MODULES FOUND 
Lnk$gw_npsects word, ! NUMBER OF PSECTS IN TABLE 
ink$gw_nsymbols word, ! NUMBER OF SYMBOLS IN TABLE 
Lnk$gw_lsymbols word, ! NUMBER OF SYMBOLS IN THIS IMAGE 
Lnk$gw_ncrosrfs word, ! NUMBER OF CROSS REFERENCES ENTERED 
ink$gw_nudfsyms word, ! NUMBER OF UNDEFINED SYMBOLS 
ink$gw_nisyms word, ! NUMBER OF MODULE-LOCAL SYMBOLS 
Lnk$gw_nudflsyms word, ! NUMBER OF UNDEFINED MODULE-LOCAL SYMBOLS 
ink$gw_nudfenvs word ; ! NUMBER OF UNDEFINED ENVIRONMENTS 
own 
omd_has_dbg : byte initial (0), ! CURRENT OBJMOD HAS DBG RECORDS 
Lastobjmod : ref block C, byte], ! POINTER TO LAST OBJ MODULE DESCRIPTOR 
weaktfradr : byte, ! TRUE IF CURRENT XFR ADDR IS WEAK 
iclsymgsd : byte, ! TRUE IF GSD SUBTYPE IS LOCAL SYMBOL 
wordpsectgsd : byte, ' TRUE IF GSD SUBTYPE HAS WORD OF PSECT NUMBER 
mhdseen : byte initial (0), ! FLAG MHD SUB-HEADER AS YET NO N 
Lnmseen : byte initial (0), ! FLAG THAT COMPILER NAME SUB-HEADER IS SEEN 
lastrectyp : byte, ! TYPE OF THE PREVIOUS RECORD 
currectyp : byte initial (obj$c_eom), ! TYPE OF THE CURRENT RECORD 
gsdoffset : word, ' OFFSET INTO CONCATENATED GSD RECORD 
entrymask : word, ! ENTRY POINT MASK OF CURRENT SYMCOL 
maxrecing : word initial (ob $c_maxrecsiz), ! MAXIMUM LENGTH PERMISSIBLE IN THIS MODULE 
objrecdesc : block Cdsc$c_s_bln, byte, ' STRING DESCRIPTOR FOR OBJECT RECORD 
Syarseene | Fay gtetercCsseregh. 1 POMEE 18 Sango agra 
symentnam : ref block C. bytel. POINTER TO SYMBOL NAME BLOCK 
ssaggedetrina pr eg tazlngetasQ7**2-| SHstHe antes BENT ATOBASEe pescateto 
: block Comd$c_size, el, } 
Last_\nkopt_fdb : ref block C,Bytel . s ' FDB OF LAST LNKOPT FILE FOR THIS MODULE 
nd 
objret = ob recdese tdscSacpet ter  tef block C, byte], | NAME POINTER PART. OF DESCRIPTOR 
objrec = objrecdesc ([dsc$a_pointer] : re oc € ! 
objvec = objrecdesc dsc$a-pointer : ref vector LC, byted, ' MUST ALSO ACCESS RECORD AS BYTE VECTOR 
recdispatch = plit ( nd } ie ty be ca RECORD TYPE (i.e., 
rohdr, 'Qe- 
crossed. ' 1 = GSD RECORDS 
seqchk, : § - TIR = JUST CHECK CORRECT SEQUENCE 
proeom } - END OF MODUL 
countdbg, ! 4 = DBG = CHECK SEQUENCE AND COUNT RECORDS 
countdbg, ! 5 = TBT = COUNT AND CHECK SEQUENCE O.K. 
prolnkrec) : vector ; ! 6 = OPTIONS RECORD 
global sy 
ink$gt_envstring = cstring (‘Environment’), 
ink$gt_modstring = cstring (‘Moduie'), ! FOR THE ERROR MESSAGE 
ink$gt_symstring = cstring (‘Symbol'), 
ink$gt_pscstring = cstring (*Psect'), 


. 
oO 
. 
o 
. 
. 
. 
e 
7 
- 
. 
° 
. 
e 
+ 
e 
o 
* 
. 
° 
. 
. 
eo 
. 
6 
+ 
. 
e 
7 
o 
. 
° 
a 
. 
° 
. 
oO 
© 
a 
- 
e 
. 
. 
. 
a 
. 
. 
. 
* 
. 
° 
. 
e 
. 
. 
° 
a 
. 
e 
~ 
e 
. 
a 
. 
- 
+ 
eo 
o 
oe 
. 
a 
7 
oe 
7 
° 
o 
a 
. 
a 
. 
e 
- 
e 
. 
e 
. 
. 
3 
. 
e 
. 
a 
. 
oe 
- 
e 
. 
* 
. 
. 
+ 
e 


tne =PRAPASS! 


SSB 


See ee Oe Se Oe eee 
oO 
-_ 
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oO 
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4E 4F 


Lnk$gt_clu 
ink$gt_ 

ink Sgt. de 
ee gt_ob 
ink$gt_sys 


74 6€ 65 6D 6E 6F 


65 
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72 «65 


65 70 79 74 20 79 
49 53 52 45 56 SF 


| ita 
ate 


nam 
ver 


72 
6C 
6F 
74 
74 
76 
74 
A) 
4B 


= cstrin 
cstrin 
cstrin 
cstrin 
cstrin 


routine dummy = return 


69 
75 
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63 
73 
69 
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! SYSTEM VERSION SYMBOL 


! FORCE BLISS TO PRINT THE 


«TITLE LNK_OBJPASS1 
= 


IDENT \v04- 
«PSECT SPLITS,NOWRT,NOEXE,2 


0000 
Bye P.AAA 
09 6 P.AAB: .BYTE 
1 ASCII 
OO2C P.AAC: .BYTE 
00 g ASCII 
0033 P.AAD: .BYTE 
ASCII 
OOSA P.AAE: .BYTE 
0 ASCII 
be P.AAF: .BYTE 
41 ASCII 
Beee P.AAG BYTE 
04 -ASCII 
OO4F P.AAH: .BYTE 
Boas «ASCII 
0055 P.AAI: .BYTE 
0056 -ASCII 
0061 P.AAJ: .BYTE 
0062 ASCII 
-PSECT 


00000 OMD_HAS_DBG: 
-BYTE 


0001 -BLKB 
0004 LASTOBJMOD: 


L 

00008 WEAKTFRADR: 
00009 LCLSYMGSD: 
0000A WORDPSECTGSD: 
$0088 MHDSEEN: BYTE 
C LNMSEEN: .BYTE 

0000 LASTRECTYP: 
0000 CURRECTYP: | 


0000F -BLKB 


-LONG 7 
eee gQUNTDE PROGSD 


00\ 


\Environment\ 
\Module\ 
\Symbol\ 
\Psect\ 
\Cluster\ 
\Entity\ 
pene 

\Entity type\ 
\SYSS$K_VERSION\ 
SOWNS ,NOEXE ,2 


—w —- Com -—- — & WO 


AX-11 Bliss-32 v4.0 
LINKER.SRC LicoesPel 6 


SEQCHK, PROEOM, 
TDBG, COUNTOBG, PROLNKREC 


Page 


Pete Se Se Se Se Se Se Se Be Se Se Be Se Se Be Be Ge Se Se Be 


Le =PRAPASS! 


0800 


00000000 
0000 


00000000° 00000000' 


00000000° 00000000° 
00000000° 00000000° 


1f-4e Beene 0:3 00:12:36 YAK=I1 BLing-32 v4.0-742. 
00010 GSDOFFSET: 


BLK 
00012 ENTRYMASKe” 


BLK 
00014 MAXRECLNG:~ see 
— a 


$001 OBURECDESC: 


.BLKB 8 
00020 SYMBOL STRING: , 
00024 SYATABENT: : 
00028 SYMENTNAM: 
.BLKB 4 
0002C IMAGEIDSTRING: 
B 32 


0004C OBMODESC: a 
00894 LAST_LNKOPT FDB: 
-BLRB 4 


«PSECT S$GLOBAL$,NOEXE,2 
00000 LNKSGL at he 
00004 LNKSGW wr enue ee 


“BLKB 
$0008 LNKSGL_UDFLST:: 

ADDRESS LNKSGL_UDFLST, LNKSGL_UDFLST 
00010 LNKSGL -ENVTREE 
00014 LNKSGL_UDFENV:: 

ADDRESS LNKSGL  UDFENV, LNKSGL_UDFENV 
0001C LNKSGL UbFL SY: 

ADDRESS LNKSGL  UDFLSY, LNKSGL _UDFLSY 
00024 LNKSGL -ENTITREE 
00028 LNKSGL_DBGTFR:: 

.BLKB 

0002¢ LNKSGL_DBGTEPS:: 
00030 LNKSGL_TFRADR: : 
00034 LNKSGL_TFRPSC:: 
00038 LNKSGL_DBGESTIM: 
0003¢ LNKSGL_OMD TREE: 
00040 LNK$Gw -DBGRECS:: 
00042 LNKSGW_NFILES:: 


LK 
00044 LNK$GW -NAODULES: 


Rew Nw F BR BR OR RF OB 


vous SS" 12 fo 3eo 198s 99:18:38 EM nxdr SReSineobses1 082; tall: 
00046 LNKSGW_NPSECTS:: 
00048 LWKSGW_NSYROOLS: 
0004 LWKSGW_LSTRBOLS: 
0004¢ LNKSGW_NCROSRFS: 
0004€ Les: 
00050 LNKSGW_NLSYMS:: 
00052 LNKSGW_NUDFLSYMS: : 
00054 LNKSGW “NODE ENVS 


. pe 


woo 
wn 


C_SI 
K oe 
K-SHR 


K _ACTIVOFF== 


$K_SYMDBGOF F == 


$ 
$ 
$ 
$ 


WM COO & NINVOO 
™~™ 
Ww 


NO O&OC#C#C 


PSC$M"SHRBITS== 
RECLNG= 

OBJREC= 

oety C= 
RECDISPATCH= 
LNK$GT_ENVSTRING== 
LNKSGT_MODSTRIN 


=— = = 
DDD 
mmm 
COon 
ovo 
mmm 
nnn 
CQO 
++ 

Ss 


>> 
>> 


LE, LNKSFILNAMDSC 
LNKSALLOF 


CRF SINSRTREF 


mOzZa>>see> 


c 
tt 
pote} 
-_~ 
a 
_— 
= 
m 
2 
~ 
" 
“ 
AKT —K——-OOvVVIVT VUUVUUU 
Zaz wrmese eee ee eee 


Son 
aZes 


E 
TREE 
PSCNOD 

PSCDEF, LNKSOINT IM 
“EXTRN LNKSALLOBLK, LNKSDEALBLK 

F SPSCHAA 
. LNKSNXTFIL 
LNKSNXTREC, LNKSPROCSHRIM 
"EXTRN Heer lB LNKSSEARCH 


CHLOCAL 
~-EXTRN LNKSADDIMAGE, LIBS _KEYALRINS 
~EXTRN INS _OPENIN, LINS_BADCCC 


SLOPES S 
[a... eee 
xz 
neamm 
oO m 


2 
m 
=< 
_~ 
» 
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r 
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x 
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ze 
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LNK_OBJPASS1 1b-5¢ Sep-1 AX-11 Bliss-32 v4.0 Page 12 Lt 
aves tit HITS Ta HE CSTs Tee ATi Pe ve iS ve 
.EXTRN LINS_BADPSC, LINS_DATHISHCH 
SEXTRN LINS“EORFTL. LINS-E 
*EXTRN LINS-EXCPS > LINSTFATALERROR 
-EXTRN LINS"FORMAT, LINS Y 
-EXTRN LINSTENTIDMTCH, LINS_ENTIDMTCHB 
-EXTRN LINS-ENTIDMTCHO 
-EXTRN LINS-ENTIDMTCHT 
-EXTRN LINS-ILLFMLCNT, LINS_ILLNAMELEN 
SEXTRN LINSTILLRECTYP, LINS~ILLRECLEN 
-EXTRN LINS-MOD Lin EF 
-EXTRN LINS“MULDEFPSC LIN MULPS 
“EXTRN LINS “MULTE d tin MUL SHRPSC 
SEXTRN LINS$-NO LINS_ROIMGF IL 
“EXTRN LINS~ §, LINS_NOPSCTS 
“EXTRN LINS“NUDFENVS, LIRS_NUDFSYMS 
“EXTRN LINS“NUDFLSYMS INS OVRALI 
-EXTRN LINS-PSCALI, LINS_PSC 
SEXTRN LINSTRECLNG, LINS-REC 
SEXTRN LINS"SEQNCE, LINS-SHRPSCLNG 
“EXTRN LINSTSTRLVL. LINS~UDF 
[EXTRN LINS"UDFSYM, LINS WRNERS 
“EXTRN LNKSR_MAX_FILENAME LENGTH 
-EXTRN LNKS$GT_JPILST, ret: FILESLEFT 
-EXTRN LNK$S LNKSA TBLFMT 
TEXTRN LNKSAL-VALCTL 
TEXTRN LNKSAW-VERSION, LNKSGL CTLMSK 
[EXTRN LNKS$GL~PSHR 
-EXTRN LNKSGL_ CLULST. LNK$G "he CL 


L 
“EXTRN LNKS$GL~ =REC ORD, LNKS$GL~SHRSYMS 

“EXTRN LNK$GL- SHRIM mos LNK$GC_PSCDFLST 
-EXTRN NK$GL~ mS? 


EX tNK GL “RAXMODS? 
-EXTRN LNKSGL-CURCLU, LNKSGL_CURF IL 
-EXTRN LNKSGL_CUROMD, LN NKSGL | LIBSYM 
-EXTRN LNKSGT_IMGID, SHRFILTYPE 
-EXTRN DEFILETYPE, (1BFILTYPE 
-PSECT S$CODES,NOWRT,2 

00 00000 DUMMY: .WORD Save nothing ; 0890 
50 01 00 Booos MOVL #1, RO 3 

04 0000 RET F 
; Routine Size: 6 bytes, Routine Base: S$CODE$S + 0000 


: 39% 0891 1 ! ABOVE DECLARATIONS 


LNK Lk <BR APASST 


Ww 


SSLESFENS 


33 


bt) 


ch$move 


Eek ee ee ee a ee ek ek ee ek ead ek ek 


Roferoforononofreror 


end; 
return; 
end; 


WONOUSWN—OOONOUSWN—O 
SOGSSSOOSSSSOOSS 
MORTON) 

WMO OOnNOUS wo 


Pee 


58 
000000006 99 
06 BC 


pout tne prolnkrec = 
begin 


recptr, 
prevmodule, 
currentmoaule; 


then .omd 


.currentmodule 
recptr 


pep i ott ((.(.re 
if .prevmodule eql 
lstadr = .currentmodule 


pe -prevmodule = .currentmodule; 


1 
1 


— setup_include_list ( omdistadr ) 


369-1984 00:12:36 


This routine sets up an include List (in simple 
List form) for modules in a Library file spec 


aoe yh = ,objrec : 


block C, byteJ; 


recptr = .objvec + yep be be 
+ .lnkoptrecCl 


1 
1 
! 
bind 
local 
prevaody le = 0; 
while .(. recptr)<0, 8> neq 0 
4 do begin 
4 
4 
4 
4 
4 
4 
4 
4 
4 


prevmodule = .currentmodule; 
= .(.recptr 


(Lnk$t_name) 
nk$w_naming] ; 


(.(.recptr)<0 8>. .recptr+1 
(. currentaaiplectr<t. 


= ° 
= .recptr + 


pegptrd®, ,8>)+5, currentmodule); 


currentmodule+5); ' Move in 
§<0,8>; 


-(.recptr)<0,8> + 1; 


AX-11 Bliss-32 V4.0-7 
LINKER. SRCJLNKOBJPS1. : 231 


: novalue = 


Linked 


! Point to module List in the 
! LNKOPT record 


Count field of 0 is end of 
module List 

Allocate aunere for name 

If first module 
then set up List header 
otherwise, just place in 


Linked list 


— ere er ee ee ee | 


name, 
: = fill in Length 


i Move ptr to next module name 


O7FC 00000 SETUP_ — LIST: 


5A 00000000° 4 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10 
OBJREC, R16 

#4, SP 

OBJREC, RO 

4(RO), R6 

OB REE R6 

F RECPTR 

PREVMODULE 


VMODUL 
(RECPTR), R8 
4h 


2, LNKSALLOBLK 
CURRENTMODULE, R7 
PREVMODULE 
R7, @OMDLSTADR 
R7, (PREVMODULE) 


Page 13 


(4) 


; 0895 


0901 
0907 
0908 
0909 
0911 
0913 
0912 
0913 
0914 


UME ORAPASSI 1$Beoc1984 00:18:35 UMGNL AL fagc 82 ys 0c7ag, 


59 C 3$: MOV R7, PREVMOD 
0S a? 91 Ag F moves RB. TeReCPTRD 5(R7) 
A 3 MOVB 
67 04 CLRL Rae) 
56 01 a8 : 4 MOV 1(RB)CRECPTRI, RECPTR 
c9 11 0005 RB 1$ 
0052 4$: ET 


; Routine Size: 83 bytes, Routine Base: SCODES + 0006 


12 
Le 2BUPASSI 1B-Se0-1984 0:12:36 YaNt1 BLise-$2 v4.0c742, Page 15) | 


end ; 
tes; 


>; 431 4 Local 

3 4 § 5 Last fdb : ref block (,byte], 

; 4 $ auxfnb : ref block L,bytel, 

5 6 input. fab : block Cfab$¢_bln, byte], 

; 435 errorcode, 

; 4 next. tb. 

; 4 filnamadr, 

: 2 pied fildesblk : ref block C,bytel; 

; rr : : inkoptrec = .objrec : block C, bytel; 

; a 5 ; PROCESS LINKER OPTIONS RECORD 

3 444 if .Lnkoptrec Clnk$b_Lnkt tr Lnk$c_maxrect ' Valid subrecord type? 

; 445 3 or .lnkoptrec Tent eee ee gtr nam$c_maxrss = : Reasonable-Looking name Length? 
: rr 3 then return false; 

3 44 1 ink$Salloblk (.lnkoptrec Cink$w_naming], filnamadr); ' allocate storage for filena 

; 44 § ch$move t. inbeatrec Ces eSo ential “Laheetres ink$t_name] » «filnamadr); ° — 

; 450 Lnk$allofdb MA ae gE 

: 451 4 2 auxfnb = fildesblk Cfdb$t_auxfnb]; 

3 $36 & 5 $fab_init (fab = input_fab ! intialize the fab 

; 45 P $ efac = get ! for input 

; 654 P -fop = sqo 

; 455 P $8 oshr = Cups -get pug} 

3 $28 P 094 efns = .Lnkoptrec Clnk$w_naming) 

; 45 P Bees efna = .filnamadr 

: 435 P 0982 oe mney 

° a s 

: re ¢ e 0358 ne = ch$ptr (Libfiltype) 

: 46 0955 fildesblk Cfdbsw_usrnamlen = .lnkoptrec Clnk$w_naming]; ! fill in file name 

: ree b3e$ fildesblk Cfdb$l_usrnamadr) = .filnamadr; 

; ret 443 select -inkoptrec Clnk$b_inktyp) of ! determine the file type 

: e 

; 467 $960 fink$c_olb 

: 468 0961 Lnk$c_o fildesblk Cfdb$v_libr] = true; ' all of these are Libraries 
: 469 3906 ink$c_olb fildesblk Cfdb$v_libsrch] = true; ' olb to be searche 

3; 470 096 ink$c_shrj] : fildesblk Cfdb$v_imglib] = true; ! shareable image LIBRARY 
3; $71 ink$c_oli] : bein ! object Lib with include List 
: 47 5 fildesblk pidbév.tibextrd = true; 

; 47 fildesbik Cfdb$v_libsrch] = ; Lnkoperec Cink$v_libsrch); : 
; $78 O38 setup. taclude_t15t (fildesblk Cfdb$l_omdist])°; ! put modules in Linked List 
: 47 969 Cink$c_obj] : begin ! regular object module 

3 0 fildesblk f fapsy_gelgerd = .lnkoptrec Clnk$v_selser]; 

; seat. 568 fab$l_dna = ch$ptr (defiletype) ; 

; eng ; 

; Cink$c_sha] : begin ! shareable image 

; fildesblk Cfdb$v_shr = true; 

: input_fab Cfab$l_dna = ch$ptr (shrfiltype) ; 


Foe af af af af af ot at at ata 
VSEAEAV AS SaN 
SSSSSSSOOOS 


Stee 
NOUS WN 


if .fildesblk(fdb$v_libr) or .fildesblkCfdb$v_imglib) ! if a library file 


SSSSSSSS esos 


POPIPURY 2 2 


wn 


ce ee ed ee ed ed ed ed ee ee ee ed ee el el ee ed ee ee ee ee ee ee ee eed ed OO CO DO DODOOOOOOOOOOO 
5 POW wWOwWwOwOwowos POW0OwO 
a D.0~0 0OwWO OO Docccaccecec 


DPD PVP PPD SPV SUSUSV SVS SVSV SVS 
FUNZSSONE - 


tice (fab=input_ fab); 
he = wie (fab=input_fab)) 


a urfil; 

oveurt 2’ TnkSgl curfil; 
ink gl. curt = gS sBlk 

4b by = thee (.auxfnb); 
inks gl. a = pmo ob 


° 
else begin 
La gltitestett te jpilst); 
nk$gl_f gies left $ Lee 3 then Lnk$c Losefile ); 
rorcode = npu 


titdesbtk Crabbe ifiaes  nnGe ab Ctabsw_itid: 


if not .errorcode 
then signal_stop Ching openin, 1 
nk$Tilnamdsc (input_fab), .errorcode 
‘: -input_fab Cfab$t_stvJ 


cf -fildesblk Cfdb$v_shrJ 
hen begin 


local moduledsc : 

modu) ogee ¢ f0] = = .auxfnd Cnam$b_name]; 
-auxfnbd Cnam$l “namel; 

TnkSadd nage (moduledse); 


en 
else begin 

if .last_lnkopt_fdb eql 0 

then Last~ “inkopt_fdb = .lnk$gl_curfil; 


if .lnk$gl_curclulclu$Sl_(lstfdb eql -last inkopt_ fdb 
then ink$gl-curclulclu$l—lstfdb -fildesBlk; 


vector (2, long); 


next_fdb = .last_lnkopt_fdb Cfdb$l =nat ide); 
om =inkopt fdb Cfdb$l_nxtfdb] = .fildesblk; 
fildesotk Taest nxt fdbl = .next_fdb; 
Last_inkopt_fdb = ifildesblk; 


en 
return true; 
end; 


AX-11 Bliss-32 v4.0 
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i save ifi 


Page 16 Lh 


then fill in name block enough 
to do a Library open by name block 


! set ptr to current fdb for the temporary b 


of Lnk$Sopenlib 


i must now restore it 


! not a library file 
' close a file if needed 
and i 


try again 


if either of the soene was a failure, 
then signal and quit 


Shareable image...? 


Shareable image spec: set up name 
and create its very own cluster 


a shareable image spec 
Ne first LNKOPT rec for this file 
set Last_lnkopt_fdb to current file 


If last fdb is last in current cluster : 
then must update last cluster fdb 


' Save ptr to next fdb : 
Point current to fate new fdb 


Point new fdb to Las 
! Update fdb of lost ENKOPT file 


gba SYSSPARSE, SYSSSEARCH 


“EXTRN SYSSGETUPI, SYSSOPEN 


OFFC 00000 PROLNKREC: 


ave R2,R3,R4,R5 


5a 00000000" EF 9€ 00009 move tet fu 


AKOPT_FOB, R10 


| 
R6.R7.RB,R9,R10,R11 : 0892 | 
URFIL, R11 - : 


N 12 
LNK_OBJPASS1 16 Sep-1 AX-11 Bliss-32 V4.0-7 Pa Lt 
vives tt ae tiae ts rik ESS a cp Ee Pe a ee alt |v 
5 AO AE 3 10 MOVAB -96(SP), $ ; ; 
F78 CA 14 ROVE OBJREC. R : 933 : 
A7 9a 00019 MOVZBL 1(R7). RO + 093 : 
39 1 1 CMPB ORD, we : F 
: 1A BGTRU 1$ : ; 
OOFF BF 06 aA? Bi CMPW 30s &(R7), #255 + 0938 ; 
0 ; 1$ BLEQU 3s. : ; 
O1A A BRW 0$ : : 
56 bo D 28 PUSHL  $P + 0941 : 
06 AP 3C F MOVZWL 4(R7) : : 
000000006 0 0 Fe 3 CALLS #2 LNK$ SAL BLK : ; 
00 «BE 06 04 A é A VC34(R7 6(R?) @F ILNAMADR : 9948 : 
4 AE SF 00041 PUSHAB FILDESB + 094 ; 
000000006 0 0 FB 044 CALLS #1, LNK SALLoFDB : ; 
4 A p 48 VL FItDESB onto + 0944 : 
5 6 AS SE O004F MOV 38( : : 
0050 «8F 00 6E 00 2¢ 098 movcsS #0, nad A vO #80, SRMS_PTR + 0954 ; 
10 AE 5008 a g0 5 MOVW #20483, SRMS PIR : : 
146 AE 40 BF 9A 0006 MOVZBL #64, S$RMS_PTR+ : : 
6 AE 4302 8F BO 0006 MOVW #17154, $RMS PTR+22 : F 
FOE 2 D MOVB Ae sR 33) : F 
8 AE 6 D 1 MOVL §§ AUXFNB, SRMS_PTR+40 ; F 
C AE 6E D0 00075 MOVL FIL NARAD R, SRMS_PTR+44 : : 
40 AE 000000906 00 9 99079 MOVAB Uri ads Be sms pT R+48 : : 
45 OA 04 9 S086 MOVB rains. The 4 ie : ; 
oC A 04 A7 BO 0008A MOV ech7)e (RB) : 0955 : 
10 AB $f DO 0008F MOVL FL Ry 16(R8) : 0956 F 
D 9093 TSTL «6 : 0960 ; 
93 13 0009 BEQL © 3$ : : 
02 9 91 90097 CMPB RY, #2 : : 
OA AB 83 BB Ooo8e 38 BTeB2 #2. 10(R8) : 0961 : 
98 D 090a5 as: TSTL a" : 0962 ; 
OA AB 80 BF 88 000As Bise2 #128, 10(R8) 
01 ef $f OA 5S: CMPB. CRD, #1 : 0963 : 
4 if AC BNEQ : ; 
0B OA 1 8 A BISB2 #1, 11(R8) : 3 
0 9 91 00082 68: CMPB . > 0964 : 
19 is 008 BNEQ $ 3 
OA AB 40 8F 88 00087 BISB2 #64, mir R8) + 0965 ; 
50 02 a? 1 1 EF EXTZV #1, }. 2(R7 RO > 0966 : 
OA AB 01 7 me 30 FO ¢ INSV RO. #7. #1, 16cR ) pi : 
FED F 1 £ ¢ CALLS a. SETUP_INCLUDE_LIST : : 
_ 65 5 of 7$: ¢ i . . + 0969 : 
OF 1 D BNEQ F 
OA AB 01 03 0 A? fF D INSV we #3, #1, 10(R8) : 0970 
40 AE 000000006 99 i: nye MOVAB DEFILETYPE. INPUT _FAB+48 : 0971 
04 ; ? +) 8$: CMPB : 0973 
OA AB 4 as £9 B1SB2 O(R8) + 0974 
PO SE Nseeseell 0} CA Sal 8343 
t 0B AB CE FA BLBC T1trB). Fh : 


—— a 
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yOn=000 1 =3007} 382 90:18:38 LINKER. SRCJLNKOBJPS1.B32;1 9° 5) 
10 AE OF OOOFE 10$:  PUSHAB INPUT_FAB : 0982 
ennai” et 10 a1 oF i te A LP pat : 0983 
000000006 9 f F 1 CALLS #1, SYSSSEARCH : 
9 DO 0011 MOVL RO, ERRORCODE : 
1 £9 0011 BLBC ERRORCODE, 14$ ; 
2 ; 00 11 MOVL § LNKS$GL_CURFIL, SAVCURFIL + 0986 
6B D0 00118 MOVL RB, LNRSGL_CURFIL + 0987 
6 DD 0011 PUSHL AUK + 0988 
000000006 99 1 FB 001 CALLS #1, LNKSOPENLIB : 
4 D0 001 MOVL RO, ERRORCODE : 
68 p 120A MOVL § SAVCURFIL, LNKSGL_CURFIL + 0989 
12D BRB 13$ : 098 
— 7C OO12F 11$:  CLRQ (SP) : 099 
43 D4 00131 CLRL = = (SP) : 
¥0000000G 00 9F 00133 PUSHAB LNK$GT_JPILST : 
7E 7C 00139 CLRQ = =(SP) : 
rE D4 00138 CLRL = = (SP) ; 
000000006 00 07 FB 0013D CALLS #7, SYSS$GETJPI ; 
03 000000006 00 b1 00144 CMPL  LNKSGL_FILESLEFT, #3 + 0994 
07 14 00148 BGTR Me ; 
000000006 00 00 FB 0014D CALLS #0, LNKSCLOSEFILE ; 
10 AE 9F 00154 12$: | PUSHAB INPUT FAB + 0995 
000000006 99 gi FB 00157 CALLS #1, SYSSOPEN : 
5 0 DO 0015€ MOVL RO, ERRORCO ; 
24 «AB 12 AE 80 00161 MOVW INPUT FAB+2, 36(R8) + 0996 
20 53 £ 00166 13$: LBS §_ERRORTODE, 1 + 1000 
1C AF DD 00169 14$: | PUSHL INPUT FAB+1 + 1003 
53 DD 0016C PUSHL ERRORTODE : 1002 
18 AE 9F OO16E PUSHAB INPUT FAB : 
000000006 00 01 FB poz) CALLS #1, LAKSFILNAMDSC 3 
50 DD 00178 PUSHL RO : 
01 DD O017A PUSHL #1 > 1001 
000000006 a DD 0017¢ PUSHL HL INS OPENIN : 
000000006 00 5 FB 00182 CALLS #5, LIBSSTOP ; 
16 OA AB 02 €1 00189 15$: BBC #2. 1O(RB), 16$ + 1006 
08 AE 3B «AGO 00185 MOVZBL 59(AUXFNB). MODULEDSC + 1010 
OC AE 4¢ =6A6 «DO 0019 MCVL  76(AUXFNB). MODULEDSC+4 : 1011 
08 AE OF 00198 PUSHAB MODULE + 1012 
000000006 00 01 FB 198 CALLS #1, LNKSADDIMAGE : 
27. 11 OO1A BRB > 1006 
6A p O1A4 16$:  TSTL LAST_LNKOPT_FDB + 1015 
03 DIAG BNEQ 178 : 
A 68 DO OO1A MOVL § LNKSGL_CURFIL, LAST_LNKOPT_FDB : 1016 
0 000000006 DO OO1AB 17$:  MOVL — LNKSGL~CURCLU, R : 1018 
1 6A DO 0018 MOVL LAST LAKOPT_FOB, R1 ; 
51 0c Ad 01 O18 CMPL (RO), R1 ; 
04 12 00189 BNEO = ; 
0c Ad 8 00 0018B MOVL RB, 12(RO) : 1019 
50 1 00 OO1BF 18%: movi (R1), NEXT_FDB : 1021 
61 DO 001C MOVL ,_ (RI) : 10 : 
8 DO O01C MOVL NEXT_FDB, (R8) : 10 
6A 3 D 1¢ MOVL R8, CAST_LNKOPT_FDB : 1024 
0 p 1(B 19$:  MOVL #1. RO : 1026 
4 OO1CE RET F 
50 p4 1CF 20$:  CLRL . RO : 1027 
4 00101 RET : 
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; Routine Size: 466 bytes, Routine Base: S$CODE$ + 0059 


CRLF 


PIPE PEPE 
DONANE WN" OOONOULS WO 
MOOD NAMVE WN CO OONOU EWN 0 


DUD DV PV IVDVIVPVSVLIVSIVSVSUSVSIVSTSTSISVSIOSISIOSIST 


ts ws ss ss 2 2 Sd - SS 


=P AWNING &nonononononononun 


Ab Ab bh 4h Ab dh abl 


D 13 * 
1e-Sep-198e te:4:38 — ETwnen=SaeSincoBses1-082;1 


routine checkpddentry (pdd) = 
; begin 


ROUTINE CALLED BY LIBSTRAVERSE_TREE FOR EACH PSECT DEFINED BY OPTION 
map 


pdd : ref block C, byte]; 
local 


psctdesc : ref block C, byte]; 
if ye Cpdd$b_naming] and %x'80") eql 0 ! IF NOT DEFINED YET 
then begi 


n 
ineS tndpscnam (pdd a pe naming], _.pdd Cpdd$w_flags] ! THEN DO SO NOW 
»((.pdd Cpdd$w_flags] and gps$m_gbl) neq 0) 


psctdesc 
psctdesc C[psc$w_flags] = .pdd Cpdd$w_flags); ! SET THE FLAGS 
if (psctdesc fpsc$b.at ign = .pdd Cpdd$b_align]) eql %x'FF* ! AND THE ALIGNMENT 
then psctdesc [psc$b_align] = 0; 
end; 
return true 
end; 
0004 00000 CHECKPDDENTRY: 
~ WORD Save R2 
5 04 C2 0000 SUBL2 #4, SP 
5 04 AC p0 9009 MOVL PDD, R2 
OF Ag 95 00009 TSTB =—s-: 15. (R2) 
32 19 0000C BLSS 2$ 
5E DD 0000 PUSHL SP 
7E D4 0001 CLRL -(SP) 
02 OA A2 04 €1 0001 BBC #4, 10(R2), 1$ 
6€ D6 0001 CL p) 
7E OA A C 00019 1$ MOVZWL 10(R2), -(SP) 
OF A F B38 AB 
000000006 00 04 FB 00 CALLS #4, LNKSFNDPSCNAM 
50 6E DO 00027 MOVL  PSCTDESC 
OA A OA A2 80 A MOVW 10(R2), {9¢ 0) 
5 E A A fF MOVZBL 14(R2), R 
2c. COA 3 0 : MOVB Re. 44(R0) 
FF 8F 91 CMPB R2, #255 
03 12 00038 BNEQ 
2c AO 94 38 D CLRB 44(RO) 
50 01 00 4 28: MOVL #1, RO 
04 0004 RET 


68 bytes, Routine Base: SCODES + 0228 


; Routine Size: 


Pete Ge Se Se Se Se Se Ge Be Be Be Ss Be Se Be Se Se Se Ss Be 


 - 
it 


2 


Ber 


o 
"O00 


AANA 


WN — OOONOULS wr 


SSSSSSESSS333S3 


rs 


SPUFUSU SUSU VSUSVSOSISVSI SISOS 
~~ ~ 
woo “ 


Co G9 00 0D 
wr-o 
GOOQOOCCCCCOCCooooSoo 
COO8 O89 NINN NNN NN NNO OO 
WN SO VONOULSWN—"OVOOnnu 


Po 


See 


CNAUE WN OOo 


SSSLESEANLSSELSEAL 


PPA A ASAI IIIT UTI 


ooooscovono 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
t 
1 
1 
1 


SS “OOOOOoooodo 


ooooo 
Swn—o 
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oat °c ink$Sinsudfsym (symboladdr) : novalue = 
i 
i 


THIS ROUTINE IN hE AN UNDEFINED SYMBOL INTO THE LINKED LIST 
OF UNDEFINED SYMBOLS. 
map 
symboladdr : ref block C, byte); ' REALLY A POINTER 
builtin 
insque; 
Local 
ch sfesult. 
LisSthead : ref vector C, long], 
ow nxtsyment : ref block C, byteJ; ! POINTER TO SYMBOL VALUE BLOCK 
symbolname = age ! POINT TO NAME PART 
ie tenes Csym$b_namingJ 
- snb$c_fxdle : block C, byte); 
' 
FIND THE SPOT TO INSERT 7“ NEW SYMBOL IN THE UNDEFINED LIST 


Listhead = Lnk$gl udflst 
if .lclsymgsd then Listheed = Lnk$gl_udflsy; 


nxtsyment = .listhead; ! SCAN THE UNDEFINED LIST 
while (nxtsyment = .nxtsyment Csym$l_udflink]) neq .listhead 


do begin 
bind ! POINT TO NAME PART 
nxtsymnam = .nxtsyment - .nxtsyment Csym$b_ naming] 
- snb$c_fxdlen block C, byte]; 


if (ch_result = ch$compare (.nxtsymnam (snb$b_naming] ! IF GREATER 
» nxtsymnam Csnb$t_name] 
»symbolname FsnbsB namLngJ 
5 symbolname [Csnb$t_name] 


) 0 
then efitiee op ' THEN WE ARE ALL DONE 
else if .ch_result eql 0 ' IF EQUAL 
‘a then return; ' THEN ALREADY IN LIST, SO RETURN 
end; ' 


insque (symboladdr Csym$l_udflink], .nxtsyment Csym$l_udfblink]); ! INSERT IN UNDEFINED LIST 
if not ye ry een Csym$v_weak) ! IF NOT A WEAK REFERENCE 


then i 
hen Link 9 nudflsyms = .lnk$gw nudflsyms + 1 !' THEN COUNT AS UNDEFINED 
sise ink$gw_nudfsyms = .ink$gw_nudfsyms + 1; 


return; 
end; 
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LNK PASS1 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 22 L 
ep e e ; 
raves titi ae tiae ts rik ES a eS aS ce a V 
OFFC 00000 ENTRY LNK SINSUDE SYR, Save R2,R3,R4,R5,R6,R7,RB,- ; 
B EF MOV tets Ym : 
ote ES OU te oe Sie | 
3 AS Bh 14 MOVZBL 15(R7), 1068 ; 
50 50 g3 018 SUBL RO R7. : 
: FB «AO 9E 0001 MOVAB =5(RO). R6 1069 ; 
5 66 3 0 MOVAB LWNKSGL’UDFLST, LISTHEAD 1074 ; 
4 6B : 0 BLBC  LCLSYM 1075 : 
9 146 AA 6 MOV tNKSGL UDFLSY phESTHEAD ; 
4 59 D A 1$: MOVL LISTHEAD, N NT 1077 : 
4 64 D D 2$: MOVL CNXTSYMENT) TAATSYMENT 1079 ; 
59 4 D4 00 CMPL §- NXTSYMENT, LISTHEAD ; 
2B 1 90 BEQL 4$ ; 
50 OF AS 9A 000 MOVZBL 15(NXTSYMENT), RO 1082 : 
50 54 50 C3 0039 SUBL Rd, NXTSYMENT, RO 
50 05 § 0030 UBL2 #5. RO 1083 
52 06 Ad 9A 00040 MOVZBL 4(RO), R2 1085 
51 04 A6 9A 00044 MOVZBL 4(R6). R1 1087 
55 04 BO 0048 Ov. #1, R5 1088 
51 00 05 Ad ” 32 D 0048 CMPCS R2. 5(RO), #0, R1, 5(R6) 
03 1A 00053 BGTRU 3$ 
55 91 D9 00055 SBWCOiC«#1, RS 
58 5 pO 00058 3s: MOVL RS, CH_RESULT 
03 14 00058 BGTR 4$ 1090 
CE 12 0005D BNEQ 2$ 109 
04 0005F RET 109 
04 84 67 O€ 00060 4s: INSQUE (R7), @4(NXTSYMENT) 1096 
0 04 AC 00 00064 MOVL  SYMBOLADDR, 1098 
OA OA AO €E8 00068 BLBS  10(RO) 
04 6B £9 0006C BLBC —=LCLSYMGSD, 5 1099 
4A AA te 0006 INCU LNKS$GW_NUDFLSYMS 1100 
46 AA Bb 60978 5$: INCW — LNKSGW_NUDFSYMS 1101 
04 00076 6$: RET 1104 


; Routine Size: 119 bytes, Routine Base: SCODES + 026F 


; 614 1105 1 


=z 
o 
5 
_—wr 
<z 
cee 
~NOoOOo 
co 
P] 
cS 
J 
“Te 
_r 
nw 
ow sa 2-=-— 
Oo . .s. a ~~ 
= zDD 
— 
o 
Pe Se Se Se Ge Ge Ge Be Be Se Ge Ge Se Ge Se Se Ge Ge Se Ge Ge Fe Ge Se Ge Be Ge Ge Ge Se Se Be Ge Se Se eB 
=" 
Oo So 
oa wa 
Nm 
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LNK PASS) 
042000 


5 $16 1} ! routine seqchk = : 
; ele 11 1! ROUTINE WHICH VALIDATES THAT RECORDS ARE IN CORRECT SEQUENCE. ; 
; 2 11 1! RETURNS VALUE FALSE IF NOT, TRUE OTHERWISE. ALSO TURNS OFF THE NO | ; 
: 6 9 1119 ; BINARY FLAG WHEN A TIR RECORD IS SEEN. : 
; 6 § Nig begin : 
3; 6 111 bind : 
3 : 7 1313 hdrsubtyp = objrec Cobj$b_subtyp] : byte; ‘ 
3 6 : 1338 if .currectyp eql obj$c_hdr ! IF THIS RECORD IS A HEADER ; 
© 111 then if .hdrsubtyp eql obj$c_hdr_mhd ! AND IT IS THE MAIN MODULE HEADER ; 
; 628 1333 then ' THEN WE HAVE VALID SEQUENC ° 
; 629 111 if (.lastrectyp eql obj$c_eom) ! IF AND ONLY IF THE PREVIOUS WAS END OF MOD : 
; 6 1120 or (.lastrectyp eql obj$c_eomw) : 
; 631 1121 then begin : 
: 6 ; 11 ; mhdseen = true; ‘ 
3 6 11 lnmseen = false; 

; ° ¢ i ¢ return true ' IS THIS CASE SET MHD RECORD SEEN AND RETUR 

3 en 

; 636 11 $ else begin 

3 6 11 signal (Lin$ a. 2 ! ELSE REPORT ERROR 

; O38 1128 ,obmodesc oadse nealng) 

; 639 1129 ink$gl_curfil Cfdb$q_filename] 

; 640 1130 j; 

: 641 1131 return false; 

3 oh¢ 11 ; end 

; 646 11 else if .mhdseen ' IF SOME OTHER KIND OF HEADER 

; 644 1134 then (if .hdrsubtyp eql obj$c_hdr_inm ! WE MUST HAVE SEEN A MAIN HEADER 

; 645 1135 then Lnmseen = true; 

; 646 1136 return true 

; 6467 1137 

; 648 1138 else begin 

; 649 1139 signal (Lin$_seqnce, 2 ! ELSE REPORT ERROR 

; 650 1140 ,obmodesc ondsp nealng) 

; 651 1141 ink$gl_curfil CFfdb$q_filename] 

; 63¢ 1148 j; 

; 65 114 return talse; 

3; 654 1144 en 

; 655 1145 else if .mhdseen and .lnmseen 

3 636 1146 then begin ! IF WE HAVE SEEN A MAIN HEADER 

3; 65 1147 4 if (.currectyp eql obj$c_eom) ! THEN TURN OFF FLAG ON END OF MODULE. 

; 658 1148 4 or (.currectyp egl obj $c_eomw) 

3; 659 1149 then mhdseen = false ! SEQUENCE ERROR IF HAVE NOT SEEN 

; 660 1150 else if .currectyp eal obj$c_tir 

: 961 1131 then obmodesc Comd$v_nobin] = false; 

; £08 1183 return true; ! MAIN HEADER AND THIS IS NOT ONE. 

; 664 1154 en 

3; 665 1155 else begin 

3 666 1138 signal (Lin$_seqnce, : ! ELSE REPORT ERROR 

; 66 115 -obmodesc Lomd b peolng) 

3 068 1128 ink$gl_curfil Cfdb$q_filename) 

3 $56 1160 return false; 

3; 671 1161 end; 

3; 672 1162 1 end; 


___ 
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; Routine Size: 118 bytes, Routine Base: S$CODES + 02E6 


s 675 1163 (1 


0004 SEQCHK: .WORD Save R2 : 1106 ; 

52 00000000° FF ge S MOV MHDSEEN, R2 : ; 

51 1,=O<8A 1 ; ADDL3 #1, OBJREC, R1 + 11146 3 
5 03 A2 9A 5 MOVZBL CURRECTYP, RO : 1116 : 

23. (1 BNEQ : ; 

61 9 14 TSTB —s-« (R11) + 1117 ; 

11 0 1 BNEQ -2$ : 

03 02 a2 9 1 CMPB —s LASTRECTYP, #3 + 1119 3 

06 13 0001C BEQL ; : 

07 02 A2 93 Ooi CMPB LASTRECTYP, #7 + 1120 F 

3 is 0 BNEQ : é 

62 4 BO 00024 1$ MOVW #1, MHDSEEN + 1122 ; 

‘ 11 00 7 BRB : 1144 : 

D ® £9 9 2$ BLBC -MHDSEEN, 7$ + 1133 3 

1 61 91 0002C CMPB OS s«(R1), WI + 1134 ; 

34 ff O02F BNEQ : ; 

01 = A2 1 90 00031 MOVB #1, LNMSEEN + 1135 ; 
1€ 11 90 5 BRB rt} + 1136 : 

1F 62 £9 00037 3$ BLBC #MHDSEEN, 7$ + 1145 ; 

1 01 =A 9 003A BLBC LNMSEEN, 7$ : ; 

0 50 91 0003€ CMPBSséRRO, @ + 1147 : 

05 13 00041 BEQL 4$ : ; 

07 0 91 0045 CMPBséRO, —#7 + 1148 ; 

04 12 0004 BNEQ : ; 

62 94 00048 4$: CLRB  MHDSEEN + 1149 ; 

9 11 0004A BRB 3 : ; 

02 0 91 0004C 5$: CMPBséRO, #2 + 1150 ; 

04 12 0004F BNEQ : : 

55 a2 02 8A 00051 BICB2 #2, OBMODESC+20 + 1151 ; 
5 01 BO 90053 6$: HOWL #1, RO : 1153 : 

7E 000000006 00 14 C1 00059 7s: ADDL3 #20, LNKSGL _CURFIL, -(SP) : 1158 ; 
69 AZ 9F 00061 PUSHAB ODESC+4 : 1157 : 

0 DD 00064 PUSHL @# : 1158 ; 

000000006 8F DD 00066 PUSHL #LINS_SEQNCE : ; 
000000006 00 9% FA 006 CALLS #4, LIBSSIGNAL 3 3 
0 Dd4 000 CLRL — RO : 1162 ; 

04 0007 RET : : 


Lal 3 - . . = = = 
vouz000 ifosen-1984 00:12:36 UINKER’ SRELNKOBJPST 85251 ree Ss 
rout ine prohdr = 


PROCESS MODULE HEADER RECORDS AS FOLLOWS: 

(1) VALID SEQUENCE 

(2) IGNORE ath BUT MAIN MODULE HEADERS 
(3) ee LEVEL IS LESS THAN 

(4) C STRLVL 


v< oc 
moma > 


D LENGTH 

HAN OR EQUAL TO 
ENGTH PARAMETER 
RECORD 

AND L — OR 


z 
s 


(5) 
(6) 
(7) 


maBocw 


om 


er SoLome 


HE 
(8) COP 
(9) 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
begin 
bind 

mhdrec = .objrec : block C, byte] ; 
local 
module_max_length ; 


+ 


if not seqchk () then return false ; ! VALIDATE CORRECT SEQUENCE OF RECORD 
if .objrec Cobj$b_subtyp] neq obj$c_hdr_mhd then return true ; ! IGNORE ALL HEADERS EXCEPT MAIN ONES 
ink$gw_nmodules = .lnk$gw_nmodules + 1 ; ! COUNT THIS MODULE 


if .mhdrec Cmhd$b_strivl] gtru obj$c_strivl ! COMPARE ITS OBJ FORMAT 
then begin ! LEVEL AND IF BEYOND THIS AND GIVE UP 
signal (Lin$_strivl, 4 

mhd$b_str'ivl), poise strlv 


--mhdrec L 
mhd$b_namlag], Iink$gl_curfil Cfdb$q_filename] 


mhdrec 


return false ;: 
end ; 


if (maxrecing = .mhdrec Cmhd$w_recsiz]) gtru obj$c_maxrecsiz ' COMPARE MAX WITH MAX ALLOWED 
then begin ' AND JF G 
ISSUE ERROR MESSAGE 


signal (Lin$_illreclen, 3 
,-maxrecing, mhdrec Cmhd$b_naming] 
5 ink$gl_curfil Cfdb$q_filename] 


return false 5 
end ; 


MOPONONUROPUR 2 a 


SSSONOUR UN SOOO NOM RW 


module_max_length = Lnk$k_max_filename_length ; OR ERROR REPORT 
m 


hd$b_naming = 0 
E MODULE RAME LENGTH 
: — N LEGAL LIMITS... 


' 

f) 
if smhdrec Cmhd$b_naming) eql 0 i 
or begin : I 

! 9 for shareable images... 


if ink$gl_curclu Cclu$Sv_shriag] : 
then if .mhdrec Cmhd b_namIng] gtru Lnk$k_max_filename_length 


Be Se Se Se Se SH Se Se Ss Ge Bs Ge Se Ge Fe Se Se Se Se Ge Fe Se Se FH Se FH Ge BH Ge FH Se Se Se Se Ge Se Se Se Se Se Se Se eS Se Se Se Se Se Se Se Ge Se Se Seteg 
“ 
oO 
wr 
ee ee ee ee a ee ee ee ee ee ee ee ee ee ee ee ed ed ed 


SSIS REN RS SERS RENE SELES AP OSS ENE ESOS La N ISSO SOE 


SN NNN 
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3; 7 ¢ 1221 4 then begin : 
oe 1 j 4 module_max_length = inkSk_max_filename_length ; : 
3 £ 1 % true : 
; 735 1224 end ‘ 
3 £ 1225 else false . 
Re 1 § else if .mhdrec Cmhd$b_naming] gtru sym$c_maxing ! 1 TO 31 FOR OBJECTS... : 
3 i } 2 then be ve : ‘ . ; 
; module_max_length = sym$c_maxing ; : 
; 740 1 § 4 true . : ’ : 
: 741 1 4 en : 
; re 1231 else false ; 
; 7% 1 ¢ en : 
3 746 1 then : 
; 745 1 begin ! AND IF NOT ISSUE ERROR : 
; rs 1235 signal ( LinS_illnamelen, 6, yates mods ~~ ! MESSAGE AND QUIT ‘ 
; 74 1 § - mhdrec Cmhd$b_naming], .mhdrec (mhd$b_naming] : 
: 748 1 » -module_max Length mhdrec Cmhd$b_naming] : 
3 749 1238 Lnk$gl-curfil Cfdb$q_filename) : 
; 750 1239 S : ; 
; 751 1240 return false ; : 
: a + : 
; 754 1 rk obmodesc Comd$l_ownfdb = .lnk$gl_curfil ; ! SET POINTER TO OWNING FDB F 
; 755 1244 2 obmodesc Comd$l=modvbn] = .lnk$al—rab frabst_rta0) : i THIS IS NOW THE LAST. CAPTURE THE ; 
; 756 1245 obmodesc Comd$w_bytoff = .lnk$al_rab Crab$w orfa4] ; ! MODULE’S RFA FOR LATER : 
5 Lede ! r¢ obmodesc Comd$b_naming = ,mhdrec Cmhd$b_nam[(ng) ; ! COPY THE STRING LENGTH ; 
; 759 1248 ch$copy (.mhdrec Cmhd$b_naming], mhdrec Cmhd$t_name], 0 ! AND THE STRING ZERO FILLED ; 
5 760 ; re osym$c_maxing, obmodesc Comd$t_name]) ; ! INTO THE DESCRIPTOR ; 
3s 7 1251 obmodesc Comd$w_hipsct] = -1 ; ! SET HIGHEST POSSIBLE P-SECTION NUMBER F 
: 76 1 26 obmodesc Comd$w_hienv = -1; ! SET HIGHEST POSSIBLE ENVIRONMENT NUMBER F 
; 764 125 obmodesc Comd$b_ flags = omd$m_nopsct or omd$m_nobin ! FLAG NO P-SECTS AND NO BINARY YET 3 
3 769 1254 or_omd$m_noenv ; ! AND NO ENVIRONMENTS DEFINED : 
5 766 1255 obmodesc Comd$v_shrimg] = .lnk$gl_curfil Cfdb$v_shr] ; ! EXTRACT THE SHAREABLE IMAGE ATTRIB 3 
3; 1256 ' FROM FILE DESCRIPTOR : 
: 768 1257 obmodesc [omd$v_selser]. = .ink$gl_curfil Cfdb$v_selser] ; ' AS WELL AS THE SELECTIVE SEARCH ATTRIBUTE 3 
; 769 1258 obmodesc Lomd$v_debuger] = .ink$gl_curfil Cfdb$v_debuger] ; ' COPY DEBUGGER MODULE FLAG F 
; 70 ' 4 obmodesc Lomd$l_omdnum] = .lnk$gw_nmodules ; ! SET MODULE NUMBER INTO DESCRIPTOR : 
3; 77 1261 if not .lnk$gl_ctlmsk Cink$v_intfill ! IF THIS IS NOT STARLET : 
3 a6 ; ¢ then obmodesc Comd$v_mapmod]™= true ; ! SET TO MAP THE MODULE ON PASS 2 : 
s rs 1264 F 
3; 77 1265 begin 3 
; 1 r§] bind modidstring = mhdrec pandss none d + ' POINT TO THE MODULE ID IN HEADER 3 
3; 778 126 emhdrec Cmhd$b naalng) : vector C, byte], |! RECORD (COUNTED STRING) 3 
; 779 1268 modcredat = modidstring fo + ! POINT TO THE MODULE CREATION DATE/TIME : 
: i $ ' H -modidstring (0] +1 + : vector C, byte) ; : 
: e ; ' A local bincredat : vector (2, long] ; : 
; 784 1 48 if .lnk$gl_curclu Cclu$Sv_shriag] ' IF THIS IS A SHAREABLE IMAGE THAT : 
: 785 1274 and ' WAS PICKED UP F A : 
3 7 1275 -(ink$gl_curclu Celu$q_credat])<0, 32, 0> neq 0 ' SHAREABLE IMAGE LIBRARY : 
3; 7 1276 4 then begin ' (CREDAT WILL BE 0 IF NOT) F 
; 4788 1277 4 Lnk$bintim (modcredat, bincredat) ; ! CONVERT TIME TO BINARY : 


~~ 
NOUS UO O0w 


SSSR OR TSSELSSE RIES SF 


ss 2b as — an —) ts 4) as ab a ss a td tt 


ooo ooonoowvowono 
ANNA SEES EEE PMA FPP LLL EE 


ed ed ed ed 
fun—o 


ifcSen-1964 09:12:36 


AX-11 Bliss-32 V4.0-7 
LINKER. SRCJLNKOBJPS1. 7 2;1 


if not hot chided a clu$l 3 tch])<31, 1 ,0> ' IF HIGH BIT CLEAR i + DATE CHECK 
then if not ch$eql bincreda %. Lnk$gl. curclu Cclu$q_credat)) IF THE D 
then signal (Ling _datmismch bincredat THEN WARN T 
-tnk$St cur fil tebsa.r! Lenane] i BUT CONTINUE 
u 
LnkSgt= “tureit fdbsa7Li LibnamdscJ 


chSfill (O, 8, Lnk$gl_curclu Cclu$q_credat]) ; 


end ; 
if an -obmodesc Comd$v_debuger] 


! ZERO QUADWORD DATE/TIME, SINCE IT 
! GETS REUSED 


! IF THIS IS NOT A DEBUGGER MODULE 


n 
(,ink$gt_imgid CO] eql O or .lnk$gl_tfrpsc eql 0) ! IF THERE IS NO IMAGE IDENT SET UP 


then begin 
oe hacer CO] = minu Swed iéstr tne +r 
’ ~ c_maxlng) 
= tnage tener tog C0] neq 
hon ch$move ( seoge geidstring Ws 
» modidstri ng 
5 roatartrie ng 


OFFC 00000 PROHDR: . 
5B 000000006 00 9€ 0000 MOVAB 
5A 000000006 00 9€ 000 MOVAB 
59 00000000° + 2 B09 MO 
SE 8 C2 0001 SUBL 
wor OB RRB BR 
56 35 £5 000 § BLBC 
50 BC AY DO 00026 MOVL 
01 a3 9 + . i 
000000 019 3 ip ; 1$ iN 
ae t 
1A 13 00 BE 
6A 14 ¢1 ADDL3 
05 A6 OF 1 PUSHAB 
7E D4 00044 CL 
7E 02 A6 9A 00046 MOVZBL 
4 DD 0004A PUS 
000000006 8F Pe 04 PU 
68 $ fo CALLS 
| BRB 
50 03 A 89 MOVZWL 
Bs Ag 3 8 te MOV 
0800 =8F O5F CM 


! EXTRACT THE LENGTH MINIMIZED WITH 
! MAXIMUM ALLOWED STRING LENGTH 
! AND IF NOT 


! ADDRESS 


OF MODULE HEADER PROCESSING 


Save R2, RS. R4,R5,R6,R7,RB,RI,R10,R11 
LIBSSIGNAL, R11 - 
LNKSGL CURE IL R10 
DESC+20, R9 

i 
oe bache 
OBJREC, R RO 


= 
“—BS5 
» 
oO 
poe 44 


LNKSGL_CURFIL, -(SP) 


'wearrnr-— 


° (SP) 
#LINS_STRLVL 
oee LTBSSIGNAL 


a0, “MYRE CLG 


tina 


NULL 
! SAVE IT TILL END OF MODULE SO THAT 
! MAY USE IT IF THIS HAS A TRANSFER 


LNK_OBJPASS1 18-50 Sep-1984 AX-11 Bliss-32 v4.0 Page 28 
raves ti 1 eats 99: 1g: $ LINKER. SRCJLNKOBJPS1. hS2, 1 . 3 

18 18 64 BLEQ 4$ ; : 

7E 6A 14 66 ADDL3. #20, LNKSGL_CURFIL, -(SP) + 1210 : 

0S A F A PUSH : 1209 : 

7E B46 Ad «3C $p MOVZWL MAXRECLNG, -(SP) + 1210 : 

dD PUSHL # : ; 

000000006 8F DD 0007 PUSHL sae ILLRECLEN : ; 

68 5 FB CALLS : ; 

0 1 7C 3$: BRB 31 2 3 

52 000000006 F pO O7E 4$: MOVL ee MAX X-LENGTN LENGTH, - : 121 : 

51 05 A6é 9A 00085 MOVZBL 5(R6), + 1217 ; 

13 0 9 BEQL = 6 : : 

50 000000006 D MOVL LNKSGL cyt, RO + 1219 : 

12 58 AO E1 0009 BBC : ; 

000000006 8F bi 009 CHL > MLNKSK “we FILENAME _LENGTH + 1220 : 

52 000000006 BF DO 000A MOVL § #LNKSK_MAX -f ILENAME _LENGTH, - + 1222 : 

MODULE “MAX “LENGTH 3 ° 

08 11 00047 BRB : ; 

1F 1 91 OO0A9 S$: CMPB , #31 t 1226 : 

23 18 OOAC BLEQU : ; 

52 1F OD OOAE VL « MODULE_MAX_LENGTH é \ge8 : 

7E 6A 14 4 0081 6$: ADDL3 #30 LNKSGL_CURFIL, -(SP) : 1238 3 

05 a6 SF 000B5 PUSHAB 5(R + 1237 : 

06 BB 00088 PUSHR #*M<R1,R2> 3: 1238 3 

0S Abd 9F OOOBA PUSHAB 5( : 1236 : 

00000000' EF OF 9008 PUSHAB LNK$GT_MODSTRING : 1235 ; 

6 DD 000C PUSHL #6 : 1238 : 

000000006 8F DD 000C PUSHL HL INS ILLNAMELEN : : 

68 08 FB 000CB CALLS LTas : F 

OOFC 31 OOOCE 7$: BRW t 1240 : 

57 6A DO 00007 8$: MOVL LNKSGL_CURFIL, R7 + 1243 3 

FO AD 7 DO 00004 MOVL 7, OBMODESC+4 ; : 

FB OA 900000006 00 DO 00008 MOVL § LNKSAL_RAB+16, OBMODESC+12 > 1244 : 

FC a9 000000006 00 80 O0E0 MOV she “RAB+20, OBMODESC+16 + 1245 ; 

58 05 Ad 9A O00E MOVZBL : 1246 3 

14 Ad 38 90 O00EC MOVB . DESC+40 : : 

1F 00 06 Ab - 2 2c O0FO MOVCS 8. 6(R6), #0, #31, OBMODESC+41 + 1249 ; 

FE Ad 1 AE it MNE GW - OBMODESC+} : 1251 ; 

02 ag 1 AF OOFC MNE GW ae : 1252 : 

69 83 BF 9 9106 MOVB i, 1 ORRODESE +20 + 1254 : 

29 on a + " aA a A att ne: ie # DESC+20 = : 

0 OA A? §¢ EF 190 EXTZV #3, a3. #1 arn : 1257 : 

69 01 3 FO 00115 INSV RO. #3. #1 QBAODESC+20 : : 

50 OA A? 1 EF O11, EXTZV #5. #1. 10(R7), R : 1258 : 

69 01 5 FO 001 9 INSV RO. #5. #1, OBMODESC+20 : : 

08 a9 00000000' EF 3¢ 001 MOVZWL LNKSGWNMODULES OBMODESC +28 : 1259 ; 

03 000000006 09 ; 1 BBS rie CNRSGL LCILASKST,. 98 + 1261 : 

1 1 BISB2 «#16 DBMODES > 1262 : 

5 06 A846 9E 00138 9S: MOV 6(RS) R6]. R6 + 1266 3 

3 9A 001 MOVZBL (R6), R > 1269 : 

0 000000006 D0 14 MOVL LNKS L CURCLU, RO + 1273 : 

4E 58 OA E1 0014 BBC a ; ; 

30 OA 03 14¢ TSTL  48(RO) > 1275 : 

49 13 OO14F BEQL ©-:«*1i18 : : 


bls 


28 


AD 


464 bytes, 


Routine Base: 


01 A74 


8 000090906 


6E 
50 16 
14 
oc 
000000006 
000000006 
6E 
30 
69 
000000006 
00000000° 
50 
1F 
50 
Ag 
50 cc 
A6 
50 


9b 13:28:38 


PUSH 
PUSHAB Von7) cng 


SUSI 


—ONODOfM 
rPo-—-forvom 
OU Wa 


Ow FN" OU S| MO 
"OC CO "™Wwonw "oo 


u 
o 


oUuo°on ooo -00 9 -0oMm MONO OOOO009 =f 09 "00 
FF FOO OOD CWMVWMO  OODIG MWB BN NOWOOWOT "Oo 


pa tata tata tata tatatatatatotatotatatotatotatatatota tata tata tata tata tata ta) 


eae 8 a tt a td it a ss st a a a a ts 


002000000 
TSR SACS SS RSMAS ERESASSUSm@auws 


SCODES + 035C 


AX-11 Bliss-32 V4.0-7 


Be _ INTIM 
$ et CURCLU, R4 
BINCREDAT, 48(R4) 


1 
1 
ir SE CURF IL, RO 
(RO) 
(R4) 
20(R 


oy ine ee ty lng 
‘ $SIGNA 


tNRSGL” CURCLU, RO 
#0, (SP), #0, #8, 48(RO) 


as, Gonneese*ee. 148 
LNKSGT_ IMGID 


2 

LNKSGL_TFRPSC 

4$ 

Rie 5 1 

13$ 

1, RO 

RO, IMAGEIDSTRING 
IMAGEIDSTRING, RO 
RO, 1(R6), IMAGEIDSTRING+1 
#1, RO 


RO 


0 
o 
% 

<- 


LINKER.SRC LNKOBJPS1.6 2;1 


N13 
vos=000 Ve=Sep=1986 12:40:38 ETwnen=SaeSinKoBJAST-082; 1 Pat 19) 


soma delete _psect (psectname, retdescadr) = 


— +s 


RIPTOR). 
THEN AN ERRO 
BE CONTAINED IN TWO 


1 
map 
psectname : ref vector [ byte) 
' retdescadr : ref vector C, longi; 
oca 
cludesc : ref piper C, byte), 
fdb : ref block C, byte), 
i 
4 
4 
4 


‘(02 C9 CD CD CD CD CD CD CD CD CD CD CD CD 


aS Ss 


WN "SO OONOUNE Wy -O0e~ 


pdesc : ref block C, byte; 
cludesc = Lnk$gl_clulst; 
oe ee ALL CLUSTERS, SEARCHING THE GLOBAL PSECT LIST FOR 


while (cludesc = .cludesc Cclu$l_nxtclu]) neq 9 do 


335 
rwnRo 


SewHw 
cc ee ee ee et ee ce ce ee ce ee ee ce el el ee el el el eel eel eel el 


if LibSlookup_tree eludes CcluSl_gpslst], .psectname, Lnk$compare pecned. pdesc) and not (pdesc = 
-pdesc Erodes ptrd; ' GET PSECT DESCRIPTOR ADDRESS 
-pdesc (psc$v_deleted]) ! TEST IF PSECT HAS BEEN DELETED 


begin 
pdesc Cpsc$v_deleted] = true; ! FLAG PSECT DELETED FROM THIS CLUSTER 
e -cludesc CcluSv_shrimg] ! IF CLUSTER IS A SHAREABLE IMAGE 

en 


FEELS 
WN —OOOnou 
Wi 


Vw 


begin 
tde = .cludesc CcluSl_fstfdb]; ! GET FDB ADDRESS FOR SHAREABLE IMAGE 
signal y S-. mulshrpsc, 3, peor tnene ! ISSUE ERROR MESSAGE 

fdb Cfdb$q_ filename], in ot curfil ei filename), Lin$ potnettt>; 
LnkSgl_ctimsk Clink$v_image] = false; ! IMAGE WOULD ONLY BE INVALID 
end; 


Bees ee 
S 


retdescadr (0) = .pdesc; ! RETURN ADDRESS TO CALLER 
coture true; 
end; 


WO CeOnou 


return false 
end; 


Be Se Se Se Ge FH Se Oe Se Se Ge FSH Se FH Se SHS Oe Os Be SH Be SHS Se Se Oe Se SH Se Oe Ss Se Oe Se Se Se eos Ss Oe Se Ge SH Se eee 


NRO OONOA NEW " O ODNAUE WN $$ O ODNOUEWN (QO OOVNOUL WT 


Ww 
ww 


001C 00000 DELETE_PSECT: 
- a Save R2,R3,R4 : 1305 
SUBL ‘ : 


35 000000006 $6 §¢ $0008 MOVAB CNESQL _CLULST, CLUDESC > 1323 


14 
LK _OBJPASS1 18- -Sep- AX-11 Bliss-32 V4.0-74 Page 31 
yOa=000 14 =$en- 138 99: 1§: 5 LINKER. SRCJLNKOBJPS1.B32;1 . 183 
52 2 09 C 1$: MOVL {CLUDESC), CLUDESC : 1329 : 
h F BEQL : : 
f pp PUSHL SP ; 1331 ‘ 
000000006 F 0001 PUSHAB LNKSCOMPARE _PSCNOD ; : 
TAS BP Seeley ELI | ; 
000000006 0 ‘ EB 1F CALLS 4, L1BSLOOKUP_ TREE : : 
3 0€ 8 BLBC 3 ° 
6F D MOVL Ese + 1332 : 
: OA AO D MOVL Oe ROS, PDESC ; : 
; D MOVL PD ( + 1333 F 
D4 oB A E BBS #6 i ), 18 ; : 
5 E b MOVL.  PDESC + 1336 : 
08 A 40 BF 0 BISB2 aes, fa3) ; 
2E A2 g E1 0004 BBC sBL ESC). 2$ : 1338 
54 08 A2 dO 0004 BEL FDB + 1341 
000000006 oF DD 00049 PUSH aLINS MGFIL + 1343 
7E 000000006 00 4 C1 0004F ADDL CMOUAGEI -(SP) : 
14 Ad OF 00057 PUSHAB ; (F DB) : 
04 AC DD O005A PUSHL BSECTNAME : 
03 DD 0005D PUSHL ; 
000000006 BF DD 0005F PUSHL  #LINS MUL SHRPSC : 
000000006 00 06 FB 00065 CALLS #6, LIBSSIGNA F 
000000006 00 01 BA 9006¢ BICB2 sow, tARSeL CTLMSK + 1344 
08 BC 3 DO 00073 2$: MOVL R3, @RETDESCADR 3: 1347 
50 01 00 00077 MOVL #1. RO + 1348 
04 0007A RET ; 
50 04 0007B 3$: CLRL = RO + 1351 
04 0007D RET : 1352 


; Routine Size: 126 bytes, Routine Base: $CODE$ + 052C 


C2 C9 0D CD00 C°00D 


C9 09 0D 
ONAN NNN NN SIOOO 
OOONOULSWN "OOOO 


woooeoooceees 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


4 
4 
4 
4 
& 


Be Be Se ee Fe Oe Be FH Oe Se Se Fe Se Fe Ge Se Ss Se Ge Ge FF Ge FH Se FH Ss Be we SH Oe Be os Be Ss Se Se Se FH Se FH Se Se SFOs Os Ss Oe Se He Oe Oe Se Oe SESH Se ees 


M—OOBNOUS wn 


wooo 


foroerny 


$ep-1984 AX=11 Bliss-32 v4.0 Pp Lt 
1§-te =3een 1 8Re 93:16:38 | HeceR ese Taeodses) e82.1 age 478 vl 


routine fndpscmapent (psctnum, omdptr) = 
begin 


‘ THIS ROUTINE RETURNS THE ADDRESS OF THE MAPPING 
: TABL Y FOR P=SECTION NUMBER ‘'PSCTNUM’’ IN 
! THE EURRENT MODULE. 
' THE my 33 MAPPING TABLE IS AN ARRAY APPENDED 
! TO THE MODULE DESCRIPTOR BLOCK. IT | NITIALLY 
: ALLOCATED WITH SPACE a FOR 25 
: ENTRIES. IF MORE THAN 256 PSECTS ARE 
} THE PROCESSING OF THE OBJECT MODULE re 1 i ABLE . 
: COPIED OUT TO ANOTHER BLOCK, AND THE MAP TABLE APPENDED TO 
THE OBJECT MODULE DESCRIPTOR BLOCK IS A TABLE OF TABLE ADDRESSES. 
: THE SECOND ARGUMENT IS OPTIONAL. IF NOT SUPPLIED, THE OWN OBJ MODULE 
: ‘went (OBMODESC) WILL BE USED. 
r 
toon eee = 256*pmt$c_size; ! SIZE IN BYTES OF A BLOCK 
blockoff, ! OFFSET OF ENTRY IN EXTENDED BLOCK 


first “entry : ref wpeeks « byte], 

omdesc : ref block fF byte], 

mepent : ref block s% te] 

first256 : ref block C ytel, 

mapoff : ref block C, byte]; 
builtin 

nul lparameter; 


POINTER TO OBJ MODULE pesenrr re 
ener IN PSECT MAPPING TABLE 
address of block of first 256 
ADDRESS OF EXTENDED MAPPING BLOCK 


SETUP POINTER TO OBJ MODULE DESCRIPTOR 


| 
EN tars DURING 
if nullparameter (2) 
then 


ontene = obmodesc 
omdesc = .omdptr; 


mapent = omdesc Comd$t_pscmap] + .psctnum*pmt$c_size; ! GET ENTRY ADDRESS IN BASE MAPPING TABLE 
if not .omdesc Sg rove st ta ' IF NOT INTO xyewoe MAP TABLE 
5 ! AND LEQU 255 PSECTS 


and .psctnum lequ 
then 

return .mapent 
EXTENDED PSECT ENTRY 


else 
begin 
blackoff = (.psctnum mod 256) spattc. size; ! or sey OF ENTRY WITHIN EXTENDED TABLE 
mapent = omdesc Comd$t_pscmap] + (.Bsctnum/256) s pnts size 
! GET AD RESS7 OF EXTENDED TABLE ADDRESS 
if ..mapent neq a9 ' JF EXTENDED TABLE PRESENT 
mm and .omdesc Comd$v_p256] ! AND THERE REALLY IS AN EXTENDED TABLE 
en 
else 
begin 
Lnk$alloblk (tablesize, mapoff); ' ALLOCATE EXTENDED TABLE BLOCK 


DBP AANA AAI PIPINIPINIPONIPPIPYPINININININININIPIPIPINPINIPIAPIPIPPOPUPIPIPIPIPIPIPIPUNIPINITUN 


return ..mapent + .blockoff ! THEN RETURN ENTRY ADDRESS 
| 
J 


LS —— _ 


CWE -DBAPASST 1B-5e -Sep-1984 ¢ 99: 1: 3 AX-11 Bliss-32 V4.0-74 Page 433 


«“Sep-1 LINKER. SRCJLNKOBJPS1.852;1 ) 
; 923 141 4 if not .omdesc Comd$v_p256] ! IF THIS IS THE FIRST ON 
: 95% i243 ¢ then -P . ; 
: 382 1218 "begin t descCondst 1; 
; rst_entr omdesclom ma 
; 9 t 1414 inkeeltobik ee lesize fir stb86); ! first, allocate space for first 25 
; 9 1415 cheaove<s bles Tee ondesct Londst pscmap), .first256); ' move data for first 256 
; 929 1218 ch$fil ».tablesize, omdesc — pscmap ); ! FERO BASE TABLE 
: 930 141 iret. ye pmt . secpatd = .first256; 
; 931 1418 omdesc Comd$v_p true; ! FLAG INTO EXTENDED TABLE 
; 9 § 1419 4 end; 
- 1259, hSILL (O, tablesi ff); | ZERO NEW BLOCK 
3 C , tablesize, .mapoff); |! 
mo tee ) : 
: 93 1424 4 ! POINT ENTRY IN BASE TABLE TO NEW BLOCK 
: 338 1058 3 t Comt$t t ff 
: mapen m secpmt] = .mapoff; 
: 940 14 8 4 mapent hepett + Polockott 7 
3; 941 1428 3 end; 
: org 1068 2 end; 
; 94 1430 1 end; 
O7FC 00000 FNDPSCMAPENT: 
«WORD Save R2,R3,R4,R5,R6,R7,R8B,R9,R10 3; 1353 
5A 00000000G 00 9E 00002 MOVAB LNKSALLOBLK, R10 : 
5E 08 C2 00009 SUBL2 # * F 
02 6C 91 0000C CMPB.s« (AP), @ : 1381 
05 1F OOOOF BLSSU 3 
08 AC 05 00011 TSTL 8( AP) ; 
09 12 00014 BNEQ 3 
57 00000000" EF 9E page 1$: MOVAB mati OMDESC 3; 1383 
04 11 0001D BRB 3 
57 08 AC 00 OOO1F g: MOVL ogy OMDESC 3; 1385 
50 04 AC oO 00023 3$: MOVL 3; 1387 
56 48 A740 7E 00027 MOVAQ > (OMDE SC) RO}, MAPENT F 
0D 14 A? 98 EO 0002C BBS ape + 3000 OMDESC), 4$ 3: 1389 
000000F F 8F 0 »d1 00031 CMPL : 1390 
4 1A 00038 BGTRU é 
50 6 Ot 0 . peyt MAPENT, RO : 1397 
7E 00 50 1 A § 4$ EMUL RO, #0, eS 3; 1398 
51 51 i 00000100 = 8F £8 4 EDIV 4286 (sP)+ : 
59 1 3 7 4 ASHL ; a1 BLotkarf * : 
50 00000109 f c6 03 DIVL2 56, ", > 1399 
56 48 A740 MOVAQ 7 2(OMDESC)CROI, MAPENT 3 
6 0D 2e TSTL (MAPENT : 1402 
A 1 BEQL 3 
05 14 A7 § E 6 BBC 20(OMDESC) : 140 
50 66 £1 9006 ADDLS BLOcKOFF. (RAPENT), RO 2 1405 
go A 5$ PUSHL : 1408 
7E 0800 F C f MOVZWL #2048 (SP) 3 
6A FB CALLS LNKSALLOBLK 3 


LNK_OBJPASS1 
v04=000 


29 14 
04 48 
0800 &F 00 
14 
0800 8=8F 00 
50 


; Routine Size: 179 bytes, 


Routine Base: 


Mmromr0o~0oMm 


moO 


o Oo 

co oo 

So 

o oO 
VODOOFY PODOCOr FO 
WMMOMM NO MoM IO 
90 O00 O@OWo se 


oOongeo 


SCODES + OSAA 


oOo 


OOOooooooooooooo 


=) 
~Sep-1 


st 19:183% 
BBS re 
MOVAB 
PUSHAB 
MOVZWL ‘ 
CALL 
se 
MOVC # 
MOVL 
BISB mgt 
MOVC 
MOVL MA 


ADDL3 BL 
RET 


AX-11 Bliss-32 V4.0-74 
LINKER. SRCJLNKOBJPS1.832;1 


20(OMDESC) 
rinenese fasts ENTRY 


(SP) 


Es ARBAB aF JRS1256 
, (§P), #0, #2048, 72(OMDESC) 


FIRSTZ56 (FIRST ENTRY) 
0<6mD MDESC) 
(SP), #0, #2048, @MAPOFF 


POFF, (MAPENT) 
OCKOFF, MAPOFF, RO 


—-— 
SPP SSE HES 


14 


F 1 
voe=000 1erSep-1986 12:40:38 


: gh? 1? 1 } lout tne alloc_omdnode (omdnum, retnodeadr, omdesc) = 
3 3 14 : 1 | THIS ROUTINE IS cMLED BY LIBSINSERT_TREE TO ALLOCATE 
; 946 1434 1 | STORAGE FOR A NODE 

3; 94 1435 1! 

; 950 14 $ begin 

; 951 14 map 

; 9 ¢ 14 8 retnodeadr : ref vector C, ahs ry 

; 95 14 omdesc : ref block C, byte 

; 956 1440 local 

: 955 1441 node : ref block C, byte); 

3 328 1236 

; 9 144 ink$a wt | (node$c_long, node); 

; 958 1444 node [node$ 08" r] =".omdesc; 

; 959 1445 retnodeadr = ,node; 

; 960 1208 return true 

; 961 1447 1 end; 


5E 


000000006 98 
OA AO 

08 Bf 

0 


; Routine Size: 32 bytes, Routine Base: S$CODE$S + 065D 


oc 


OViS OOOMO 


—OOmromm = 


oocVvon"o7o 
fSooo0owc7 


; 962 1448 1 


0000 00000 i ee 


POINT 


AX-11 Bliss-32 V4.0 
LINKER. SRC LNKOBJPS1. if 231 


ALL CCATS A_NODE 


TO OBJ MODULE DESCRIPTOR 


RETURN ADDRESS TO CALLER 


Save nothing 
#4, SP 


#14 
#2, 
NO 


LNK$ALLOBLK 


OMDE SC 10(RO) 


, @RETNODEADR 
* RO 


ren 


u! 
v( 


vl =PRAPASS! 


3; Routine Size: 


SzSEE 


SANS NSO 


WOWDOOOOOOOODSO 
SsarIorrun—oo 


981 


AACA 


ee ee ee ee ee ee ee ee ee ee er ey 
pS HS 8 
AFAR IAS See nrun ooo 


Sep-1 AX-11 a, -32 V4.0-7 
ieee Q01394 UNG SUEZ Aa TRo. 
global routine lnk$compare_omd (omdnum, curnode, omdesc) = 


i THIS ROUTINE IS CALLED BY LIBSINSERT TREE AND LIBSLOOKUP_TREE 
TO COMPARE CURRENT NODE WITH THE NUMBER WE ARE LOOKING FOR 


curnode : ref block C, byte); 
curomd = .curnode [node$l_ptr] : block C, byteJ; 


if .omdnum lss .curomd Comd$l_omdnum) ' COMPARE THIS WITH CURRENT NODE 
then return -1 ! RETURN -1 IF LSS 
else if .omdnum yt -curomd Comd$l_omdnum] ! IF EQUAL 
then return ' THEN RETURN 0 
else return 1 ! ELSE IT'S GTR, RETURN 1 
end; 
0000 00000 ~ENTRY tel ge _OMD, Save nothing 
50 08 AC 00 00002 MOVL CURNODE, RO” 
50 OA AO 00 94444 MGVL 10(RO), RO 
1¢ A0 04 AC D1 QOO0A CMPL OMDNUM, 58 (RO) 
04 18 Q000F BGEQ 1$ 
50 01 CE 00011 MNEGL #1, RO 
04 00014 RET 
03 12 00015 1$: BNEQ 2$ 
50 04 00017 CLRL RO 
04 00019 RET 
50 01 00 QOO1A 2$: MOVL #1, RO 
04 0001D RET 


30 bytes, Routine Base: S$CODE$ + 067D 


1466 


1 


roel 


7} 


Lu 
v¢ 


32:1 


JLNKOBJPS1 


AX-11 Bliss-32 V4.0-74 


LINKER. SRC 


Seon tate Oz: 


H 
6- 
b- 


1 
1 


w 
o 
<= 
= 
— 
< 
=x 
Wa 
oO 
ze 
oa. 
ec“ 
be 4 wae 
vy u> 
oO 2Z2na 
of we 
«® SS ok 
2 = ” oc ae s# 
oO “ow ee wuw ad 
= $8 S34 #2 wee 3% 
Ld iv -_ “ue alt 
[4 <x oa 32 a So oadw oO 
w ze we z=<> va eo ~-s a 
Coa 202 Jj wow “no nn “a uw 
w - -§ VEZ + x we -2 were sc) >~z 
= ae a 2Z2owZz oO Wwe oe Feuer weZze wn 
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14 
pe=o00 1b-$e0- 1982 99:28:38} Hotncen Saf Scacob ses -6S2-1 
sgpstype = false; 


if .psctdef Cgps$b_gsdtyp] eql gsd$c_psc 
then 


aie _pasesnene = psctdef Cgps$b_naming) 
begin 
psectname = psctdef Csgps$b_naming]; ! SHAREABLE IMAGE PSECT 
sopstype = true; 
en 
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FUSVSVSVSUSISVSIOSIOSIOSIOSIS 
WANN AIInorororeorerTrg 


WR SO OONAUES WIN 9 OD NA UNE WIN 2 O ODNOAUN EF W OW ONOUSE 


; FIRST CHECK FOR LEGAL P=SECTION NAME 


if .psectname (0) gtru s syage maxing ! CHECK NAME WITHIN THE LEGAL 
m or .psectname [0] eq ! RANGE FOR SYMBOL AND P=SECTION 
en 


begin 

signal (Lin$S_illnamelen, 6, ! NAMES AND IF NOT 
ink$gt_pScstring, .psectname {psec tname 0], $Y m$c maxing, ! ISSUE AN ERROR MESSAGE 
obmodesc Comd$b_naming), Lnk$gi_curfil Cfdb$q_ fi lenamed) ; 

A ate false; 

end; 


DONA VLE WN OOONOUE WO 


pejelelelejejelolq) 
PAA AUIVIVIVIVIVG 


SEE IF PSECT DEFINED BY OPTION 


ch$fill (0, peste size, a gceipee?: 
ere Cpdd$ baalign] = 

ped = localp OT FOUND 
bsf ags = poe ee Cgps$w_flags); ASSUME NOT DEFINED BY OPTION 


2S ink$srcpscdef (.psectname, pddptr) ' SEE IF DEFINED BY OPTION 


SESSFESES 


“be in 

pddpt tr Cpdd$b pentoss = “pddote apeae Aening] or or p> ! AND IF SO, MARK AS DEFINED 
psfla ags = .pddptr Cpdd$w_f ags FLAGS 

s “pst ags and not .pddptr te du, °F Lomsk J); § QUALIFIED BY THE MASK 

end; 


AAPM EE BEEPS L LE 


esssssssss3 


SNS 
DONOULWN OO 


If THIS IS A SHAREABLE IMAGE CLUSTER AND THIS IS A GLOBAL PSECT 
(COMMON), THEN SEE IF DEFINED SOMEWHERE ELSE 


BS 


sss 


SSPSSSSSELES 


2 -lnk$gl_curclu CcluSv_shrimg] and (.psctdef Cops$w_flags] and psc$m_shrbits) eql psc$m_shrbits 
en 
: prevdfound = delete_psect (.psectname, delpscdesc) 
prevdfound = false; 


CHECK ALIGNMENT 


SAN NNO OO 


Be Se Ge Se Se Ge Ge Se Fe ee Se Se Ge Ge Fe Se Ge Ge Se Ge Fe FH Ss FH Ge Se Ge Se Fe Ge Ge Ge Ge Ge Se Se Ge FH SH Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Sete tee 
ee ee a ee a a ee a a a a a ed 
s QSAF 

DONA ULS WI O00 w 


ee ce me ee kk a ed ed ed ed aed ed wd dd ed ed wd sd Dd dd 


ty ahah ah ah ahah ah ah ah abedb ah ah ah dh tb dh ah dh ah ahah Ab dd Ab ad Ab ah Ah Ab Ab ab ab al al al al eabeal Sal eal eal eae) 


if .psctdef Cgps$b_align] gtru obj$c_pscalilim ! JF THE ALIGNMENT IS GREATER 


»psectname, obmodesc Comd$b_naming], 
ink$gl_curfil Cfdb$q_filename)); 


if .psctdesc Cpsc$v_ovr) ! IF OVERLAYED 
then 


-psctdef Cgps$b_align] neq .psctdesc Cpsc$b_align] ! CHECK EQUAL 
en 


signal (lLin$_ovrali, 3, ! ALIGNMENT 
-psectname, obmodesc Comd$b_naming], ink$gl_curfil Cfdb$q_filename]); 
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: 1097 1581 then 
i] 1388 Bree CLinS.pscali, & t det Cops$b_ align] ! THAN THE MAXIMUM, ISSUE 
: signa n$_pscali, 4, .psectname, .psctde s$b_align ! THAN TH x , U 
711 1 geaogesc ond$b “naling ink$gl curfil C+aB6q. tT ensmed) : ! ERROR AND QUIT 
: i ; ; 5 poctdet gps$b_align] = 0 $c_pscalTLim; ! USE OBJ LANG MAX 
514 1 ; 
. we 1 ! 
; i 5 : } SEARCH FOR P=-SECTION DEFINED, CREATING DESCRIPTOR IF NOT. 
5 110 1591 
3 11 159 if .obmodesc Comd$v_shrimg] ' IF TH HAR MA 
1198 1236 Ye v shrimg I IS IS A SHAREABLE IMAGE 
; 1110 1594 pscope = 0 ! THEN P-SECTION SEARCH IS ONLY IN THIS CLUSTER 
3 1333 133? else 
3 118 1397 1 Spocepe = .psctdef Cgps$v_gbl]) eql 0 ! ELSE DEPENDS ON PSECT SCOPE 
3 1g 1358 pscope = .pddptr ([pdd$w_flags] and gps$m_gbl; ! OR OPTION DEFINITION SCOPE 
: 111 1601 if Llnk$fndpscnam (.psectname, .psflags, .pscope, psctdesc) ! GET DESCRIPTOR ADDRESS 
; 1118 160 and .psctdesc (oscSuusrpscs : : AND PSECT WAS SEEN IN SOURCE 
: 1130 1e0a ee, ™ i ! AND IF FOUND 
s n ! 
: 1131 1oh2 nemeact = false; 
; 1 § 1607 ** THIS CHECK DISABLED UNTIL C ISSUE RESOLVED 
: 1125 1609 i if .psctdesc (Cpsc$l_omdnum] 7 . Lnk$gw_nmodules ! IF PSECT ALREADY DEFINED IN THIS MODULE 
311 $ 1610 : then signal (Lin$_muldefpsc ! THEN ISSUE A WARNING MESSAGE 
3 11 1611 ! »psctdesc Epsc$b_naning 
3; 1128 + a ! -obmodesc oadsp neaing 
311 161 : ink$gl_curfil Cfdb$q_filename) 
We , 
; i : 1616 i #® END OF DISABLED CODE 
3 i 4 1618 psctdesc Cpsc$l_omdnum] = .\nk$gqw_nmodules; ! SET DEFINED IN CURRENT MODULE 
: i YS iy not .psctdesc Cpsc$v_optpsc] ! IF PSECT NOT MODIFIED BY OPTION 
; en 
3 1138 16 & begin : 
3 1139 16 § 4 
3 1140 1624 if .psctdef Cops$w_flags] neq ((.psctdesc ([psc$w_ flags] ' CHECK COMPATIBLE 
3 i 1 + 5 $ - ond not (becker supres or pscén, uarpsc)) and Bsc$a pscbits) 
3 en 
3 11 : 16 3 4 signal (Lin$_mulpsc, 3, ' ATTRIBUTES, ISSUING ERROR 
3 11446 1628 4 ! IF NOT 
3 1145 1629 4 
3171 § 1630 4 
3 11 1631 4 
2 11 3 16 ¢ 4 
3 171 16 4 
; 1150 16 4 
: 1151 1635 4 
3 (11 § 16 4 
3 11 16 4 
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i end; ! PSECT NOT MODIFIED BY OPTION 
if .psctdef Cgops$b_align] gtru .psctdesc Cpsc$b_align] ! MAXIMIZE 
a + d .pddper Peadseoet ge) eal Sx FR! ¥ —s 
psctdesc Cpsc$b_align] = .psctdef Cgps$b_aligni; ! THE ALIGNMENT 
end 
P=SECTION IS NOT YET DEFINED = SO DO THAT 
eon 


begin ! AND INSERT P-SECTION 
$gw. ee = .lnk$gwinpsects + 1; i AFTER COUNTING IT 

aoupied = 

psctdesc Cpsc$b. align] = .pddptr Cpdd$b_align]; ! SET THE ALIGNMENT FROM PDD 


os -psctdesc Cpsc$b_align] eql %x'FF* ! BUT IF NONE SPECIFIED 
en 


SECSOSC OCCT ESSE ESET 


me ed a td a dd ad td = a 2 2 8 
o 
SazEREEEE 
Mewn— 
AAA AAAI AI AAAI AIS BB BB BB BIE. BAI III AAAI AAA 


WONAUS WN COONAN wry 


a tg ak ae at tt at = = 8 = = 2 as SS 2 2 SS 2 2 2 SS 2 ot SS So SS Ss 


SISVSARAVLSSHIS AR AG OOO VEAP HS OSNOUF UN SO Doe Waa RUN o> Doe aU 


psctdesc Cpsc$b_align] = .psctdef Cgps$b_aligni; ! THEN USE INPUT FILE 
psctdesc (psc$w_flags] = "rues ' ser THE FLAGS 
psctdesc Cpsc$v_usrpsc i FLAG DEFINED BY USER SOURCE 
psctdesc Cpsc$v_shrimg Tnkégl. curclu: Cclu$v_s agli 
PROPO POGATE SHR IMG FLAG INTO PSECT DESCRIPTOR 
psctdesc (psc$v_newdef] = .sgpstype:; REMEMBER IF SGPS DEFINITION 
if .lnk$gl ——, Clnk$v_shrJ ' IF git aw: A SHAREABLE IMAGE 
and not -obmo aepe Comd$v_shrimg] i “AND THIS IS NOT A SHAREABLE IMAGE INPUT MODULE 
and (.psctdesc Cpsc$w_flags) and psc$m_ sheet ts) 
669 DIF PSECT WILL BE OUTPUT TO SHAREABLE IMAGE 
on . eql psc$m_shrbits i (MUST BE RELOCATABLE, GLOBAL AND OVERLAID 
n 
ore begin 
of? ink$gl_pshrnum = .lnk$gl_pshrnum + 1; ! THEN COUNT IT FOR LNKSYMOUT 
673 ors .lnk$gl_pshrnum eql Lnk$c_maxpsects + 1 ! IF THERE ARE TOO MANY 
$99 "signet. stop (Lin$_excpsc, 2, obmodesc Comd$b_naming], Ink$gl_curfil Cfdb$q_filename], 
678 Lin$_format);~ 
679 
$30 end; 
eB if .lnk$gl_ctlmsk Lege intfil) ' IF THIS IS THE INTERNAL (SYSLIB) FILE 
68 and .lnk$gi_ctlmsk CInk$v_supsys] ! AND SYSLIB SUPPRESSION IS ON 
rep mM osctdesc Cpsc$v_supres] = true; ! THEN SUPPRESS THIS P-SECTION 
ef oe -obmodesc Comd$v_shring] ! IF A SHAREABLE IMAGE P-SECTION 
en 
9 


iy -sgpstype 
en 
psctdesc [psc$l_base] = .psctdef Csgps$l_base] 
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s 
psctdesc (psc$l_base] = .psctdef Cgps$l_alloc); 
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Po SY YS 


Lnk$ailoblk (mpc$c_size, modpscontriblk); 


ae 


modpscontr 


MEW OC OONOUES WN OVO OVNOUSWN—O 


SOWA E 


psctdesc Cpsc$l_lstmpc] = .modpscontriblk; 


CONAVUEWN “OOO NOUSWN OO 


DAMMAM 


SS 


if .obmodesc Comd$w_hi 


OnO 


WnN— 


a a a aaa nn a a a aa a a tk tk a ak a tt st ts = = a a 6s 2 a 2 a a 


Sa Si te ted de de i eb te i I i i ee de Se ee | 
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ee ed ee ee ed ee ce ce me ce ee ee ee Be ec me ce ee ec ee ce ce ee ce ee ee ed eed ee ed eed 
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LEAF 


obmodesc Comd$v_nopsct] = false; ! CLEAR NO PSECTS FLAG 
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if 


b- 


! ITS BASE IS GIVEN BY SIZE FIELD IF NORMAL PSECT DEF 


end; 

IS IS A SHAREABLE IMAGE PSECT THAT WAS FOUND ELSEWHERE, 

VE TO RUN AROUND AND FIX UP THE POINTERS IN THE PSECT 

NG TABLES FOR THE PREVIOUS DEF. TO POINT TO THIS NEW 

ITION, ALSO, PUT THE OLD PSECT MAPPING LIST ONTO THE | 

ESCRIPT 
if .prevdfound 
then 

— 

modpscontriblk = .delpscdesc Cpsc$l_mpclstj; ! GET MPC LIST POINTER 

psctdesc besc$ ape lst = omogpecentrtpthz ' +H INTO NEW DESCRIPTOR 

psctdesc [psc$i_lstmpc] = .delpscdesc Cpsc$l_lstmpc]; ! COPY END OF LIST POINTER 


unite -podpscontribtk neq 0 do 
egin 
pol tnapent = Sndpeemapent ¢ nedpacenar tans Cmpc$w_pscnum], ! FIND PSECT MAPPING ENTRY 


ee Lk Cmpc$l_ownom 
psctmapent patst_pecdes2 = spec tgesc; ! SET POINTER TO NEW DESCRIPTOR 
modpscontrib = Tmodpscontriblk Cmpc$l_nxtmpcd; 
end; 
end; 


NOW TO CREATE A BLOCK OF DATA DESCRIBING THIS 

MODULE'S CONTRIBUTION TO THE P=SECTION, LINK THE 

BLOCK TO END OF THE P=SECTION MODULAR CONTRIBUTION LIST 
AND POINT MODULE DESCRIPTOR 

MAPPING TABLE ENTRY AT THIS BLOCK. 


ALLOCATE THE BLOCK 
(make sure it’s clean) 


h$fill ¢ 0 mpeSc- size. -modpscontriblk ); 
ibtk Empe$t LINK INTO TEMP LIST 
x 


yonene = .obmodesc Comd$i_nxtomd); 
= .mod 


obmodesc Comd$\_nxtomd paconeribLk: 0 BE FIXED UP AT PROEOM TIME 
Lastmodpscontriblk = .psctdesc Cpsc$l_lstmpc]; GET POINTER TO LAST CONTRIB. BLOCK FOR PSE 
ie -lastmodpscontriblk neq 0 ! IF THERE IS A LAST 
en 
Lastmodpscontriblk Cmpc$l_nxtmpc] = .modpscontriblk; ! THEN LINK NEW BLOCK INTO LIST 


AND MAKE IT THE NEW LAST. 


psc eql Lnk$c_maxpsects ! IF TOO MANY PSECTS ALREADY 
and not .obmodesc [Lomd$v_nopsct] 
! BEEN SEEN FOR THIS MODULE 


then L 
signal_stop bias excpsc, §: ' ISSUE AN ERROR MESSAGE AND GIVE UP 
obmodesc ComdSb_naming], Lnk$gl_curfil Cfdb$q_filename], Lin$_format); 


Bete Pee Se Se Se Se Se Se Se Be Ge Fe Ge Oe Se Be Se Se Se Se BH Se Se Se we 
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obmodesc [ 1% chipgct 2 -eynadons Comd$w chiggct3 + 1; ! COUNT NEW P-SECTION 
modpscontriblk Cmpc$w_pscnum -obmodesc Cos Sw shipsctd: ' SAVE PSECT NUMBER IN MPC 
psctmapent = “Tndbgemabent, ( .obmodesc yet Bie ! GET MAP TABLE ENTRY 
5 premsymist = pepe tmapent Cont L_symlst AVE PREMATURE SYMBOL LIST 
§ psc tmapent L_pscdes] = .psct se. INT IT TO PSECTION DESCRIPTOR 
psctmapent pnt panes -modpsc ye AND TO THE NEW CONTRIBUTION BLOCK. 
§ modpscontriblk b_al gn) = -pectaet spas ati ni: ' COPY ITS ALIGNMENT 
modpscontriblk nbc $b “offset] = SSUME ABSOLUTE AND/OR OVERLAYED 
¢ i AND THUS 0 OFFSET CONTRIBUTION 
6¢ tf -poctéocs Cesc$v_rel] ' THAT IS ALL FOR ABSOLUTE 


begin ! P-SECTIONS 
if not .psctdesc speedy ov ! IF A CONCATENATED PSECT NOT FROM SHR IMAGE 
- and not .obmodesc sous _shrimg] 

en 


begin 

sreund = (1%, peg tees Cops$b glignd) 

modpscontriblk (mpc$l_offsef Cpsetdese Cpsc$l_base] + und) 

D IN THE ROUNDING AND. TRUNCATE 
and not .aroun 


OO NINN NINN NNO OOOO 


SSNS 


me kt ad td ed 4 8 od a sd 9 = as — 9 as — a as 2 9 1 2 et 


a ee ee ee te ee eee 


PUPS PUBS BE SUS SB TTI ES BS ES BB BB BB BE ENN AAAI IPIPIPIPOPIPIPIPIPIPOPINPD 
@ 
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8 
9 
0 
4 around = modpecontr {bUt Cmpc$l_offset] - a ie spr Cpsc$l_base]; ! THEN COMPUTE AMOUNT ADDED 
5 psctdesc Cpsc$l_base] = .psctdesc Cosc$l base -around +” ! UPDATE THE BASE FOR NEXT 
S -psctdef Cgps$l_alloc); CONTRIBUTOR. 
5 poesenes psc$l_ length) = -psctdesc tpsesu. baseJ; ! WHICH IS ALSO TOTAL LENGTH 
9 else 
begin ! FOR OVERLAYED 
B¢ local 
omd : ref block f. byte}. 
if fdb : ref block bytel; 
36 if (. » pstype ! IF SHAREABLE IMAGE PSECT TYPE 
8 ane tdune Cpsc$v_ovr] and .prevdfound AND IT nif DEFINED BEFORE IN OBJ MODULE 
spe 88 — (.delpscdesc Cpsc$l_length] ry -psctdef Cs gps$l alloc])) 
5 89 LARGER THAN ORE IN SHR IMG 
i 3 ot 
308 a PTBStookup. tree ae potion, -delpscdesc Cpsc$l_omdnum], ! FIND DEFINING MODULE OMD 
79 Lnk$c are sone. 
10 794 d = .omd ~ as (peed: ' POINT TO OMD FROM N 
11 795 fdb = ny i GET POINTER 10 FD NPOR MO 
\¢ re signal, MS. n setts , -psectname, -delpscdesc [psc$l_ i a omd Comd$b_naming], 
ie 197 fd bott filename], .psctdef Csgps$l_allocJ, (nk$gl-curtil Cfdb$q_filename), 
n 
16 1 ink Sgt aot ap image] = false; ! DISABLE IMAGE PRODUCTION 
end; 
1 1801 
18 1 § if (.psctdesc Cpsc$v_shrimg]_and _*peetdens Cpsc$v. poyde!} ! JF PSECT DEFINED IN SHAREABLE IMAG 
19 1 and .psctdesc [pSc$v_ovr] and not .newpse D TH . IS NOT FIRST DEFINITION 
0 1804 ond (.psctdef Cgps$l—alloc gtru . opectdese . scsi co ngth 
1 ' 5 D THIS DEFINITION IS BIGGER THAN SHR IMAGE ONE 
en 
5 1 begin ' THAT IS AN ERR 
* 1808 {db = .psctdesc Cpsc$l_cludsc); ! Get CLUSTER DESCRIPTOR POINTER 


——__——+ 


} 
N 14 S 43 
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; ! GET POINTER TO_FDB FOR SHAREABLE IMAGE : 
: Signet’ tl tak peretclans 6 f Cops$t_alloc], ! SIGNAL THE PROBLEM 
; é i i Hana Chabad tg, otcinte ot Helo eased -psctdesc Be Ag 5 : 
; n » Lin$S_noim : ; 
; } 5 i } Unk Sgt ct lack Cinksc: teaged = false: 1 TURN OFF THE IMAGE 
71 1814 4 end; 7 
; i ; i 18 4 if not .obmodesc Comd$v_shrimg] ! IF NOT A SHAREABLE IMAGE 
then 
: } i 18 $ begin : 
; i 3 i 6 if .psctdef Cgps$l_alloc] gtru .psctdesc Cpsc$l_length] ! P-SECTION MAXIMIZE 
} 8 i ! ag Cpsc$l_length] = .psctdef Cgps$l_alloc]; ! THE ALLOCATION 
: 1339 is end } 
: 1 ; 1825 4 else 
: 183% ; a: EABLE IMAGE PSECT ; 
! AL SHAREABL ; 
: } is ; 3 thei ee Soc pi J; |! THEN SET LENGTH OF PSECT 3 
: 1 é 1830 5 psctdesc (Cpsc$l_length] = .psctdef Csgps$l_alloc]; ! ; 
3 3 1831 5 ; : 
3; 1348 1336 4 end; 
3 1349 1835 4 
3; 1350 1834 end; 
: i 2) 1836 if not .obmodesc Comd$v_shrimg] 
; He 1838 4 begin $l_length] = .psctdef Cgps$l_alloc]; !' SET MODULE'S CONTRIBUTION ; 
1338 1820 4 SEeeinas tenads ntact > vabeadans fomdSl_sl ocd + ! FINALLY ACCUMULATE THE CONTRIBUTION ; 
: i 38 1841 4 smodpscontriblk LapcSl_ length; 
: 184 end; 
; , He : : 
: i F PREMATURE SYMBOLS ; 
; i 18% i = UINOSE: AUALTING DEFINITION yd eerocktiotey. i 
; i 3 1880 AND THEN LINK THEN ON TO THE P-SECTON LIST 
31 1851 2 } ; 
; 182 AND THERE ; 
We HEE agarenere = eremmtors nen ooo | sears ue : 
; } 7 1886 if .premsym Csym$v_rel) ! FOR EACH THAT IS RELOCATABLE : 
peti 188 _— Lue] = .premsym Csym$l_ value) + ! ADD IN THE BASE OFFSET é 
; 1 i } 35 Boe ee ee te eta ottecel: ! OF THE MODULE'S 
: rg 180 = Csym$l_psclst); _! TAKE IT OFF LIST : 
: 13) 1863 ey A sige Be A | AND PUT ON THE ; 
: m Csym$l _psclst] = .psttdesc Cpsc$l_sy 
: 1 § 1 : psc tdesc tpsc$t symist] = .premsym; '"P=SECTION SYMBOL LIST } 
3 1 1 end; 
3; 1381 1865 
| 
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04 -Sep- LINKER. SRCJLNKOBJPS (14) 
3 3 186 ! 

; ! § } COMPUTE LENGTH OF THIS GSD SUBRECORD 

: 1385 1 

3 } 1 % if .sgpstype 

3 3 1871 then 

: } oS ! if _{enate = psctdef Csgps$t_name] - psctdef Csgps$t_start] + .psectname [0] 
3 } re : n Length = psctdef Cgps$t_name] - psctdef Cgps$t_start] + .psectname [0]; 
: 139 1 i gsdoffset = .gsdoffset + .length; ! UPDATE GSD OFFSET INTO RECORD 
; 139 HS return true; 

3 1394 1878 end; ! OF P-SECTION PROCESSOR 


OFFC 00000 PROPSECTDEF : 
WORD 


‘ Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1467 ; 

5E 2¢ c2 0000 SUBL2 #44, S : ; 

58 00000000' EF 3C 0000 MOVZWL GSDOFFSET, R8& + 1519 ; 

58 00000000" EF rai) 9000¢ ADDL2 rb ; : 

E D4 0001 CLRL § SGPSTYPE + 1524 ; 

68 95 00015 TSTB —s_ (RB) + 1526 : 

06 12 90017 BNEQ =‘'1$ : ; 

56 08 Ag H 0019 MOVAB 8(R8), PSECTNAME + 1528 ; 

07 11 0001D BRB 2$ : ; 

56 Oc AB 9 0001 1$: MOVAB 12(R8), PSECTNAME + 1531 ; 

6E 01 00 00023 MOVL #1, SGPSTYPE : 1532 : 

1F 66 91 00026 28: CMPB = (PSECTNAME), #31 : 1539 ; 

04 1A 00029 BGTRU 3$ : ; 

$6 95 00028 TSTB (PSEC TNAME) + 1540 : 

D 12 0002D BNEQ 4$ : ; 

7E 000000006 00 14 ci OO02F 3$ ADDL3. #20 LNKSGL _CURFIL, -(SP) + 1545 ; 

00000000" EF SF 00037 PUSHAB OBMODESC+4 : ; 

1F DD 0003D PUSHL : ; 

7E 66 9A 0003F MOVZBL (PSECTNAME), -(SP) : : 

56 DD 00042 PUSHL PSECTN ; ; 

00000000" EF 9F 0044 PUSHAB LNKS$GT_PSCSTRING + 1543 ; 

6 DD 000A PUSHL @& > 1545 : 

000000006 8F DD 0004 PUSHL #LINS_ILLNAMELEN : F 

000000006 00 08 Fe 5 CALLS #8, LIBSSIGNAL ; : 

0474 ; 2 BRW : 1546 : 

10 00 6E .. 00 C 3 4$ mOoVCS #0, (SP), #0, #16, LOCALPDD : 155 : 

i AE 01 8€ 63 MNEGB #1, LOCALPDD+14 : 1553 : 

C AE 9 AE 9E 0006 MOVAB LOCALPDD PDDPTR : 1554 3 

5 As 3C : MOVZWL 2(R8), PSFLAGS : 1555 : 

C AE OF PUSHAB PDD : 1557 3 

56 DD 0007 PUSHL PSECTNAME ; : 

000000006 0 Q FB 7 CALLS #2, LNKSSRCPSCDEF ; : 

1 7 7¢ BLBC 3=._-«&RO,_“S58 ; ; 

5 C AE 0 7F MOVL PDOPTR RO + 1560 : 

OF A 0 8F BISB2 #128, 15(RO) : : 

31 C AO 3C¢ MOVZWL VecRd) R : 1562 : 

51 2 51 CB 0008C BICL3 R1, PSFLAGS, R1 ; | : 
| 


gic emi iia tae taianartnintsis ay 
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LNK_OBJPASS1 1b-se -1984 00:12: AX-11 Bliss-32 V4.0-74 Page 45 
yOu=000 12-80-1382 90:18:38 LINKER SRe LNKOBJPS1.832;1 9° 44) 
OA AO 3 9090 MOVZWL 10(RO), PSFLAGS ; : 
ee . 94 BISL2 1, PSFLA : ; 
000000006 D 97 5$: MOVL LNKSGL CURCLU, RO + 1570 : 
20 58 OA 5 9 BC #2, 88TRO), 6$ ; : 
FFFFFFCR BF CA OOOA py stp. : | 
, Coe lg : : 
10 AE OF 083 PUSHAB DELPSCDESC + 1572 : 
56 DD 00 86 PUSHL PSECTNAME : : 
FDD4 ~=sCF 0 FB 0008 CALLS #2, DELETE_PSECT ; : 
04 AE D 08D MOVL RO, PREVDFOUND : ; 
0 1 C1 BRB 7 e ¢ 
04 aE ps 003 $$ CLRL_ + PREVDFOUND : 1574 ; 
5B 01 AS 9E 00066 7$ MOVAB 1(R8), R11 + 1580 ; 
09 68 91 BO0CA CMPB ss (R11). #9 : : 
25 1B 000CD BLEQU 8$ ; : 
7E 000000006 00 14 C€1 OOOCF ADDL #20, LNKSGL_CURFIL, -(SP) 3; 1584 : 
00000000" EF 9F 00007 PUSHAB OBMODESC+40 ; : 
é 88 bp 000rD PUSHES PSECTHAMES : 
04 DD 000E2 PUSHL #4 $ ; 
000000006 8F DD ait PUSHL #LINS_PSCALI ; : 
000000006 00 06 FB QOOEA CALLS #6, LIBSSIGNAL F : 
68 09 90 000F1 MOVB #9, (R11) + 1585 ; 
04 00000000" EF 0¢ EI O00F4 8$: BBC #2; OBMODESC+20, 9$ 1392 ; 
17 11 SoorE BRB 10$ : : 
51 02 Aa 01 04 EF 00100 Ss: EXTZV #4, #1, 2(R8), PSCOPE : 1597 ; 
OF 12 00106 BNEQ 108 : : 
50 Oc AE p0 0108 VL PTR, RO + 1599 ; 
51 OA Ad 3C 0010C MOV{WL 10(RO). PSCOPE ; ; 
51 FEFFFFEF  8F CA 00110 Blfc2. #17, PSCOPE : ; 
14 AE OF 9117 10$:  PUSHAB PSCTOESC : 1601 ; 
3) bp olie PUSHE  PSELAG : 
56 DD Ole PUSHL PSECTNAME : : 
000000006 00 04 FB 01 CALLS #4, LNKSFNDPSCNAM : : 
0 0 : 0127 BLBS RO. 12$ : : 
0088 31 0012A 11$:  BRW 6$ : ; 
SC 14 AE DO 0012D 12$: MOVL PscTD $C, RO : 1602 ; 
F4 0B AO 03 £1 00131 BBC , 11(RO), 118 : : 
08 AE 04 001 CLRL  NEWPSECT + 1605 : 
5 14 AE D0 00139 MOVL PSCTDESC, R3 : 1618 : 
28 A3 00000000" EF 3¢ 001 p MOVZWL LNKSGW_NMODULES, 40(R3) : ; 
59 A A3 14 MOVAB 10(R3)> R9 > 1620 ; 
53 69 OA 60 00149 BBS #10, (RO), 148 3 : 
0 02 a8 3C 00140 MOVZWL 2(R8), RO ; 1624 3 
50 69 OA 00 FD a3 CHPZV 3 wio, (ROD, RO ; ; 
7E 000000006 00 14 ¢1 001 § ADDL3. #20, LNKSGL_CURFIL, -(SP) + 1629 3 
00000000" EF 9F 00160 PUSHAB OBMODESC+4 : 1628 : 
33 sole ua grcTNA Rete 
oo00000s 99 YS OS FB oo170 CALLS WS. CIBSSIGNAL 
5 99 2 Ef 199 13$: ¢ #2; (RO), 148 > 1631 ; 
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LNK_OBJPASS1 16-Sep-1984 00:12: AX-11 Bliss-32 V4.0-74 Page 4 
yOu=000 eae rR Es ee tr Tee arte Pee oe 428 
2c AB 68 91 00178 CMPB ss (R11), 44(R3) 5 1634 : 
7E 000000006 00 if t 181 ie i LNKS$GL_CURFIL, -(SP) + 1637 ; 
00000000" EF $F 00189 PUSHAB OBMODESC +407 : ; : 
: DD 0018F PUSHL PSECTNAME : : 
000000006 BF DD 0019 PUSHE —ALINS. OVRALI : ; 
000000006 09 5 FB 198 CALLS 43 LTB$SIGNAL ; : 
2c COA 68 91 OO1A0 14$: CMPB R11), 44(R3) + 1641 ; 
F 1B OO1A4 BLEQU 15$ : ; 
50 0c AE p 1A6 MOVL  PDDPTR, R + 1642 : 
FF OF OE A OIAA CMPB =—s«14(RO), #255 : : 
04 12 OO1AF BNEQ 15$ : ; 
2c AS 6B 3 0181 MOVB (R11), 44(R3) + 1644 : 
00C4 31 00185 15$:  BRW 21$ + 1601 ’ 
00000000" EF Bs 0188 16$:  INCW LNKS$GW_NPSECTS : 163¢ ; 
08 AE 1D O18 MOVL #1, NEQPSECT + 165 ; 
5 14 AE 00 OO1C MOVL PSCTDESC, R3 + 1654 ; 
5 OC AE DO 01¢6 MOVL PDDPTR, RO F : 
2c (A OE AO 90 OO1CA MOVB 1$¢R0), 44(R3) : ; 
FF OF 2C «A391 OO1CF CMPB 0s «4&4 (R3). #255 + 1656 F 
04 fs 90104 BNEQ 17$ : ; 
2c. AB 68 90 00106 MOVB (R11), 44(R3) + 1658 : 
59 OA A3 9E 001A 17$:  MOVAB 10(R35, RO + 1660 3 
69 52 80 01D MOVW  PSFLAGS, (R9) : ; 
01 Ad 08 8 001E1 BISB2 #8, 1(R9) + 1661 : 
50 000000006 00 DO 001E5 OVL  LNKS$GL_CURCLU, RO + 1662 ; 
51 58 AO 01 02 EF OO1EC EXTZV #2, #1. 88(ROS, R1 : : 
69 01 0D t FO O1Fe INSV R1, #13, #1, (RO) : ; 
69 01 OF 6E FO OOiF INSV  SGPSTYPE, #15, #1, (R9) + 1664 ; 
4D 000000006 00 0 E1 OO1FC BBC #2, LNKSGL_CTLMSK, 18$ : 1666 ; 
45 00000000' EF £0 90204 BBS 4 ODESC+20, 18$ + 1667 ; 
0 69 3¢ 09 0c MOVZWL (RO? RO + 1668 ; 
30 FFFFFFCB 8F CA OO20F BICL2 #-53. RO ; : 
4 50 D1 00216 CMPL RO #52 : 1670 ; 
36 12 00219 BNEQ 18$ : : 
000000006 00 06 021B INCL — LNK$GL_PSHRNUM + 1673 ; 
00010000  8F 000000006 9 D4 3 \ CMPL LNKSGL-PSHRNUM, #65536 : 1675 ; 
000000006 8F DD O022E PUSH #LINS FORMAT + 1677 : 
7E 000000006 00 4 ¢ 0 ADDLS 8 CNKSGL_CURFIL, -(SP) : ; 
00000000" EF 9F 00 ¢ PUSHAB ODESC+4 F 3 
2 0D 0024 PUSHL # : ; 
000000006 8F DD 0 44 PUSHL #LINS_EXCPSC : ; 
000000006 00 ; Fe 4A CALLS #5, LIBSSTOP ; : 
C 000000006 00 £ 31 18$: BBC #3; LNKSGL_CTLMSK+1, 19S : 1682 ; 
000000006 0 6 3 9 BBC #6, LNKSGL-CTLMSK+1, 19$ : 168 ; 
01 OA 10 88 00261 BISB2 #16, 1(R9) > 1685 ; 
OF 00000000' FF 02 €1 00265 19$: BBC #2, ORBMODESC+20, 21$ : 1687 : 
7 6— €9 9 $0 BLBC GPSTYPE $ : 1692 : 
18 «AS 08 A b6 f MOVL ck >, 24(R3) : : 
18 AB 04 =A 06 7 208 MOVL  4(R8), 24(R3) + 1694 : 
33 04 AE CE 7C 21$ BLBC § PREVDFOUND, 23$ : 1707 : 
0 10 AF D 6 MOVL  DELPSCD : 1710 ; 
18 AF 0¢ AO D MOVL  12(RO), MODPSCONTRIBLK ; : 
5 14 AE OD 9 MOVL  PSCTDESC, R3 : 1711 ; 
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o¢ a 1 AF D : MOVL MODPSCONTRIBLK, 12(R3) ; 
A 10 AO D MOVL  16(RO), 16(R3) + 1712 
5 1 A p 228: MOVE MODPSCONTRIBLK, Re * 1714 
06 =A pd 9D PUSHL  4(R2) : 1717 
7E 11. A2 3C 0020 MOVZWL 17(R2), =(SP + 1716 
FC66 CF F AG CALLS #2, FNDPSCMAPENT : 
A D Ag MOVL RO, PSCTMAPENT : 
6A D AC MOVL 3. (PSCTMAPENT) : 1718 
18 AE 62 D 0 AF MOVL (RE), MODPSCONTRIBLK + 1719 
E2 1 B3 BRB 22 + 1714 
18 AEF 008 23$: | PUSHAB MODPSCONTRIBLK + 173° 
13 DD 00088 PUSHL #19 : 
000000006 99 02 FB O2BA CALLS #2, LNKSALLOBLK : 
18 «OA p 02C1 MOVL.  MODPSCONTRIBLK, R7 + 1732 
13 00 bE 0 ¢ 0 C5 MOVCS #0, (SP), #0, #19, (K7) : 
04 A7 00000000' Ef dO 00 cB MOVL OBMODE 5¢ 4(R7) + 1733 
00000000° EF 7 DO 0020 MOVL 7, OBMODES + 1734 
3 146 AE DO 002DA MOVL PSCTDESC, R + 1735 
50 10 A 09 0 DE MOVL  16(R3), LASTMODPSCONTRIBLK : 
03 1 00 E BEQL 24$ : 1737 
60 57 DO 00264 MOVL = R7, (LASTMODPSCONTRIBLK) + 1739 
10 A3 57 DO O02E7 24$:  MOVL 7. 16(R3) + 1741 
FFFF  8F 00000000" EF 81 00 EB cMPW QBHODESC+18, #65535 + 1744 
23 00000000" EF ig 02F6 BLBS § OBMODESC+20, 25$ > 1745 
000000006 8F DD 002FD PUSH aL INS FORMA + 1748 
7E 000000006 00 14 C1 00303 ADDL #20, CNKSGL_CURFIL, -(SP) 3 
00000000' Ef F 00308 PUSHAB OBMODESC+4 : 
2 DD 00311 PUSHL #2 ; 
000000006 8F DD 00313 PUSHL #LINS EXCPSC : 
000000006 00 5 FB 00319 CALLS #5, LIBSSTOP ; 
00000000" EF 01 8A 00320 25$:  BICB2 #1. OBMODESC+20 : 1751 
00000000" EF BG 0327 INCW OBMODESC+1 : 1738 
11 a7 00000000' EF 032D OVW  OBMODESC+18, 17(R7) : 175 
7E 00000000" EF 3C 00335 MOVZWL OBMODESC+18, -(SP) : 1754 
FBCE CF 1 FB 0033C¢ CALLS #1, FNDPSCMAPENT ; 
A 0 bdO 00341 VL —-RO,_~PSCTMAPENT ; 
54 04 AA DO 00344 MOVL  4(PSCTMAPENT), PREMSYMLST : 1755 
6A 53 D0 00348 MOVL 3, (PSCTMAPENT) : 1756 
04 AA 57 0D 0 48 MOVL 7. 4(PSCTMAPENT) : 1757 
10 A7 6 4F MOVE (R11), 16(R7) : 1758 
08 A? D4 6 33 CLRL = 8(R7) : 1759 
03 69 7" £0 0 6 BBS 4 { (RO), 268 : 1762 
31 69 E 2h 26$: BBS #2, (R9), 278 : 1766 
9 00000000" EF t 61 BBS #2. OBMODESC+20, 278 : 1767 
2 1 6 69 ASHL (R11), #1, R2 : 1770 
52 D 6D DECL_ AROUND : 
50 5 18 «AS C1 oF ADDL3 24(R3), AROUND, RO : 1771 
08 A7 5 52 ¢ 4 BICL3 AROUND, RO, 8(R7) : 1773 
5 08 A 18 #AS OC 79 SUBL gai ); B(R7) AROUND : 1774 
5 5 18 OA § 7F ADDL 4(R3). AROUND, R : 1775 
12 A FEOME G5 Sime Raut Buea gs is 
00E1 i 038F BRW $34 > 1766 


60 


04 


000000006 
1¢ 


7E 000000006 


000000006 
0 000000006 


48 


7E 000000006 


06 
0D 00000000" 
00000000° 


71 
69 
9 04 
: 10 
A 1¢ 
Fc} 
55 1 
0000008 “ 
3 1¢ 
af OA 
5 1¢ 
5A 8° 
000000006 
00 
04 
14 
28 
1¢ 
000000006 
00 
00 
69 
69 
ah 08 
Ag 04 
5A 4 
5A 
000000006 
14 
1¢ 
0 
00000000° 
04 
0 000000006 
00 
EF 
A3 04 
0 
a3 (Os 
EF 
A7 4 
FF C 
0 


son 


NOMOMD OVI! LOM WHO OW Wooo =—S 


FF ENN AWA NAA AA AA AAAI 


OOooooocooo 
OOOO OOCOCOSOSOSOSOOOCSOOOOOOOOOOOOOOOOO 


\~] oo 
ONG OOW OO WOO 
=> 


woo oCCTT9 -oOMmm—-@amwn 
wr nm 


SM SWO ALM TOM ODO" p> 


UPS POPYFQROCOPFOOOOOIPFM—LyPyP 
PE NOMOMWNY COI" ONOOOMNSWP 

ooo 
OOOOCC0O—-@D“OoOFrWorIISg 
OOoOoQoooooooooooooooooooooooo 
SESSLER ERERERRRRRREREEER 
Fk ak ee tee tl te te tk ee 


Qooomom——oOmMmon"oe 


wSep-198e 12:40:38 EC Taken=SaeSinKoBJAS-082, 1 


SGPSTYPE, 28$ 
$8 (R9). $s 
PREVDFOUND, 28$ 


OM 
LNKSCOMPARE_OMD 
DELPSCDESC, "RS 


LNKSGL_OMDTREE 
#4, LIBSLOOKUP_TREE 


omMb, R 
10(RO), OMD 
OMD 

4(RO), FDB 


(RO), F 
LINS NOIMGF IL 
0, CNKSGL_CURFIL, -(SP) 


NWOOoO-, 
PROUR 2 & MAA AnDW 


LIN 


pete bb Rare me pap h | 


5 ( ° 


L NAL 
LNKSGL CTLMSK 
OBMODESC+20, 30$ 
8), 28(R3) 


Pe Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Be Se Se Se Se Be Se Se Se Be Sete Se Se Se Se Ge Ge Se Se Ge Se Ge Se Ge Ge Ge Ge Fe Fe Ge Ge Se Ge Ge 


Ft et it ss 


20009 co0000 
Wy eety Nu 


WOOP OONM OCOOWwW 


vou2000 Se ags 73:46:38 — ECTmen=$ReSinKoBJPSt -082; 1 Page a8) 


$ 
04 OA a0 33 10(PREMSYM), 34$ 
ch 


R 
», OP 
34$:  MOVL 4 (PREASY 


wo 

- 
—-oO 
fo 


w 
w 
A 


BLBC ; PSTYPE, 36$ 
SUBL3 RO 

MOV ZBL TOSECTHARC) 
ADDL R 

re LENGTH 


50 


4 4 se sr 
pebetet tt tet 


NOUWUIWN— OO 


OD 


36$: SUBL2 

MOV ZBL a RO 
M AB ScRB) ENGTH 
378: ADDW LENGTH  ESDOFFSET 


; 1874 


09 : 
; 1876 
; 1877 


; 1878 


00000000" 


OMNOOCSO WO—-WO 
OWNS NOMNO YH UNWIN YS b PO— 
—MWOPCOS O—SOomnwniowo nwo 


MMA UT 


SOVO9 FOE OOO OOmMm—-VvI9g0OmM— 
fF FOOMO PI —-MO Pwo" OO00—w 
So 


ww 
Oo 


paleo leleleololeleleleloleolololelelelelo lo leo) 


S ek tal tal alte eke tad Dt da ed at dt ee ee ee tee 


VVOOOoowwwww,r>>>r>r oO 
VO RMANOMM oo meroonTd ae 
wo 
» 
o< 
PTR TETETETETSTETETOCCLSOSOSOSrerererererere 


38$: CLAL RO 
RET 


; Routine Size: 1235 bytes, Routine Base: S$CODES + 0698 


5 Emery 


H 1 
062000 1e$ep=1986 12:48:38 — EMTvKeRs SReSiNKOBIPST -892;1 Pane 43) v 


Sz 


> 


Wr—Ow 


1 routine crefilter (definition, weakflag, altomd) = 
begin 


WAG 


RAENVLSSALF 


THIS ROUTINE FILTERS FROM THE CROSS REFERENCE THE SYMBOLS 


3 3 1 

3 1 1 

: 1g 

: 14 1 i OF THE DEBUGGER AND ALSO MASKS THEM FROM APPEARING IN ANY 

3 1? : : } OTHER SYMBOL TABLE OUTPUT. (STB FILE OR GST OF IMAGE) 

: 14 1 i IT ALSO DECIDES IF ANY CROSS REFERENCE IS TO BE DONE 

3 Vibe 138 AT ALL. 

: 1406 Hi THE ARGUMENT ‘DEFINITION’’ HAS VALUE TRUE OR FALSE. 

; 1408 1891 "map 

3; 1409 1336 altomd : ref block C, byte; 

3 1410 189 builtin 

3 1e13 1998 nul lparameter; 

: 1218 1998 objmodesc = (if null rm a a (3) then obmodesc ! IF NOT SPECIFIED, THEN USE THE LOCAL ONE 
; Vole 1930 else .altomd) : block C, bytel; ! IF SPECIFIED, USE IT 

: 1218 139) a -Ssymtabent Csym$v_lclsym] ! NO CROSS REF OF MODULE LOCAL SYMBOLS 
5 en 

3 1318 1 return true; 

; 16 9 1908 if .Unk$gl_curfil Cfdb$v_debuger) ! IF THIS FILE CONTAINS THE DEBUGGER 

; en 

7 nt ats 

: 1496 1907 if definition ! AND IF THIS IS A DEFINITION 

3 en 

3 1236 13op symtabent Csym$v_supres] = true; ! SUPPRESS IT FROM STB OUTPUT 

; is ae 7 -lnk$gl_ctlmsk Clnk$v_supdbg) ! IF ALSO SUPRESSING 

3 en 

3 14 1918 return true; ! DEBUGGER SYMBOLS FROM MAP 

: pt 2 1914 

3 1 ¢ Hb a end; ! THAT IS ALL 

; 1434 1317 i -lnk$gl_ctlmsk Clnk$v_brief] ! IF A BRIEF MAP THEN 

g en 

3 1436 1318 return true; ' ALSO ALL DONE 

: 14638 1954 if .lnk$gl_ctlmsk Clnk$v_intfil] ' IF THIS IS THE INTERNAL (SYSLIB) FILE 
3 1439 19 § and .lnak$gl_ctlmsk CTnk$v_supsys] ! AND ITS CONTENTS ARE SUPPRESSED 
avo ne eo 

a nt! WT not ataktalofgtaneCemevacros) | 3 0, SSS EERE 

5 or not .definition ! 

; rire: + $ or .symtabent iayeteoupvesl ! OR THE SYMBOL HAS BEEN SUPPRESSED 

§ en 

: reg | 3 return true ' THEN ALL DONE 

3 se 

3 yr: | }) 1 objmodesc Comd$v_mapmod] = true; ! BUT IF SYMBOL IS ENTERED MAKE SURE MODULE GETS MAPPED 
; 1620 ie $ ¥ (.definition or .lnk$gl_ctlmsk Clnk$v_cros]) ! IF WE ARE GOING TO CREF THIS SYMBOL 
3 en 

3 1452 1988 begin 
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1067000 1 ~Sep-19 4 99:18:38 LINKER.SRCJLNKOBJPS1.852;1 7 (13) ve 
3 14 1 
3; 14 i 13 if .symentnam Csnb$b_naming] gtr .lnk$gl_maxsymsz 
H 1? 5 12 8 toon T IF THIS SYMBOL NAME IS BIGGER THAN BIGGEST SEEN 
; 1% 5 HP Lnk$gl_maxsymsz = .symentnam Csnb$b_naming]; ! THEN MAKE THIS THE BIGGEST 
; 1233 1348 a) sebpnatees Comd$b_naming] gtr .lnk$gl_maxmodsz ! ALSO CHECK THE MODULE NAME LENGTH 
; 1669 i Lnk$gl_maxmodsz = .objmodesc Lomd$b_namLng); 
; end; 
3 1464 194 
: 1465 194 if .definition ! IF THIS IS A DEFINITION MUST 
Me IRR the ess 
; egin 
3: 1468 1951 criSinsrtkey ConkSet Sy rel fat. symentnam Csnb$b_naming], ! AT LEAST ENTER THE VALUE 
: 1068 1396 symtabent Csym$l_value], .symtabent fsyete tlagsJ 5 
: 1470 195 ' BY ABDRESS AND PASSING THE FLAGS AS VALUE FLAGS 
; 1472 132¢ setabens Csym$v_crosref] = true; ! FLAG SYMBOL HAS BEEN CROSS REFERENCED IF DEFINITION 
: 147 195 . 
3 14674 1989 if .lnk$gl_ctlmsk Clnk$v_cros] ! IF A CROSS REFERENCE IS BEING PRODUCED 
7 nt 2 re 
3 egin 
: 1499 1960 crfSinsrtret (Lnk$al_sytbl fmt, symentnam Csnb$b_naming], ! THEN INSERT THIS REFERENCE 
: 1478 1961 objmodesc Comd$b_naming], .weakflag, .definition); 
; 1479 196¢ Ink $gw_ncrosrts = .lik$gw_ncrosrfs + 1; ! AND COUNT IT 
; end; 
3 1481 1964 
: eT 1965 return true 
; 148 1966 1 end; 


OOFC 00000 CAST, Cees 


.WORD Save R2,R3,R4,R5,R6,R7 : 1879 
57 000000006 00 9€ 99002 MOVAB LNKSAL_SYTBLFMT, R7 : 
26 900000006 0 9€ 000 MOVAB LNKSGL“MAXMODSZ., R6 : 
00000006 00 9E 00010 MOVAB LNKSGL~MAXSYMSZ, RS : 
54 90000 00' EF 9€ 00017 MOVAB SYMENTRAM, : 
53 000000006 00 3 001 MOVAB LNKS$GL GTLMSK, R3 : 
03 6¢ 9 90 MPB (AP), BF > 1896 
1F BLSSU : 
oc ac 05 002A TSTL  12¢AP) : 
09 1 90 D BNE $ F 
50 24 «AG 3 0 F 1$: MOVAB OBMODESC. RO : 
52 50 D 3 MOVL RO, R : 
06 11 BRB 3 
52 Oc ac D 3: MOVL §ALTOMD, R2 : 1897 
1 FC OAK OD ¢ $: MOVL YMTABENT, R1 : 1899 
03 0B At : BLBC 1(R1), 5$ : 
00 1 4 4$ BRW 1 : 
50 000000006 DO 7 5$ MOVL LNKSG CURF IL RO : 1903 
0D 0A AO E1 af BBC #5, 10TRO), 7$ : 
04 06 AC €E9 0005 BLBC DEFINITION. 6$ : 1907 


0B Al 
01 
7D a nS 
16 1 A 
11 1 A 
68 04 
66 Al 
14 Ae 
04 04 
50 
AO 08 
65 04 
A2 08 
66 28 
18 04 
7E OA 
7E 64 
000000006 00 
50 FC 
oc 
04 
08 
28 
7E 64 
000000006 00 
$0 00000000' 


OOOO PP H-OFOCOooOOomMrr 


FOF DWMNOUMM MUO W FW 


OmMmoworrr-Co 
ARNE MNOOO 


DOOOCOGOGOGOOOOOCSOOO 
SOOCCoCoCoooooooooo°ooo 
COOCCCSCOOCOCOCOOOoOoOoO 


oo 
Coooeo 

>o 

iw 


=] 


OAD 


0c 


OTD "ION OSS $09 MIN FOWM OM OS MS — OM comm — .Ormnrnrn —».O0D 


FOODS $$ MOF WDNDWOWD OF “9M OF Ung Suid OWOMwowoowuw——O Ouro 
oO 
oo 


SOoQOoQoooooooooooooo 


SSOSVeOSSSSeSeeoe 
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io 


230 bytes, Routine Base: S$CODES + OB6E 


bFeo-1984 00:12:36 


Dr nnwe 
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ore 


AX-11 Bliss-32 v4.0 
#32 
uta CHLAsK#1 


+ LNKSGL_CTLMSK+1, 138 
H > LNKSGL-CTLMSK+1, HH 
MSK+1, 8$ 


SYRENTNAR, 
¥ Raitt attest 
rH ifiON tes MAXMODSZ 
~($P) 

#4, SYMENTNAM, =(SP) 


#4, CRESINSRTKEY 
gl 


»_12(RO 
LNKSGL_CTLMSK 
DEFINITION 
WEAKFLAG 
40(R2) 

#4, SYMENTNAM, -(SP) 


#5, CRFESINSRTREF 
LNKSGW_NCROSRFS 


LINKER.SRC LNKOBJPS1. 3 


RO 
#8, 4(RO), LNKSGL —MAXSYMSZ 


LNKSGL_MAXMODSZ 


Kk 15 
vou=000 Ve=Sep=198e 12:48:38 EMTwken=SaeSincoBsest-082; 1 Page 48) 


4 5 368 routine prosymbol (entmskflg) = 
4 38 This routine does all the work qf processing syabois on PASS 1, including 
4 o enery ppanys. simple symbol definitions and references and procedure names. 
: 9 44 the following operations are performed: 
491 97 1. If the current object module is a selective search module, then only 
138 974 definitions are considered. these are ignored unless there is a current 
ret of? outstanding reference to that symbol. 
495 375 2. If a definition already exists in the table and this oe symbol is 
4 are a definition, produce an error unless they are equal, absolute symbols 
437 or unless this is a selective search module. 
300 3. If there is no symbol in the table, insert this one. 

4. 


If the entry found is a reference and the in contng symbol is a 
definition, the flags, data type and value are copie 


d into the entry 
after removing it from the undefined List. 


ooo 
wr 


SEARANSS 


5. If the p-section specification has been seen, the base of this module's 
contribution to the p=-section is added, and the symbol Linked on to the 
p-section symbol List. 


PASI 


SIESF 
WOOOODOOONOOO 
CoCo 
Oc 


3 


6. If p-section has not been seen, find the mapping table query and Link 
this symbol on to its List of prematurely defined symbols. The symbol 
will be relocated when p-section is defined. 


7. Undefined syabets are Linked on to the undefined symbol List and a c-wwit 
of them is kept if the references to them are not weak. 


a ee a a ed ed ed aed ed 


SESS SSSSSsSSsssEs3s3 
HUNAN AAA ANNA AAAI 8 a tt tt at a a tt pn ss ss ss ee 


ENTMSKFLG = 1 if the symbol contains an entry mask, 
0 otherwise. 


a at = 2 2 — 2 Lt 


ODONOUES WN "CO OONOUS WN —O 
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in 
routine shrimgsym = 
begin 


i THIS ROUTINE LINKS A SYMBOL TABLE ENTRY INTO THE LIST OF REFERENCED SYMBOLS 
! IN A SHAREABLE IMAGE. THE SYMBOL IS COUNTED ALSO. 


! 
bind shrimgclu = .symtabent Csym$l_cludsc] : block C, byted: 


wr 


if .shrimgclu Esluby posed) or .lnk$gl_defclu Cclu$v_based] 
or not .Symtabent (Sym$v_rel] 
then return true; 


NO SYMBOLS YET THIS CLUS/ER 
EN COUNT THIS SHAREABLE IMAGE 


I 

T 

COUNT THIS SYMBOL IN CLUSTER 
COUNT IN TOTAL NUMBER OF SYMBOLS 
LINK SYMBOL INTO LIST OFF CLUSTER 


if .shriagclu CcluSt_shrsyas) eql 0 ' 
then Lnk$gl_shrimgs = .lnk$gl_shrimgs + 1; : 


thc iengely CcluSl_shrsyms] = “phringcly Cclu$Sl_shrsyms] + 1; 
ink$g sihreyas = .lnk$g ophrpyes +1; 
symtabent Csym$l_shrink] = .shrimgclu clu$l_shrist); 


z=" 
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15 
LNK_OBJPASS1 1b-$e 1984 00:12: AX-11 Bliss-32 V4.0-74 Pa 54 
yoez000 1 7350-1382 99518538 LINKER. SRCJLNKOBJPS1 .852;1 9°16) 
>; 154 4 symtabent (sym$v_gref] true; ! FLAG SYMBOL HAS BEEN ENTERED INTO 
3 3 “$ 5 shrtanc ts atte tees : .symtabent; 
3; 154 § return true 
; 1545 end; 


0000 00000 SHRIMGSYM: 
- WORD 


Save nothing ; $006 
3} 00000000" EF D O0¢ MOVL YMTABENT, R1 3: 2012 
0 Al D MOVL (Rl), RO ; 
$f AO €E se BLBS (RO), 2$ 3: 2014 
000000006 99 E8 00011 BS LAKSSI, prs chyses. 2$ 3 
22 OA Al °3 €1 00018 C #3, 10TR1), 2$ : 2015 
2c ad 05 4 fh TSTL 44(RO) : 2018 
88 12 00020 BNEQ 1$ 3 
000000006 Dé 000 ‘ INCL LNKS$GL_SHRIMGS : 2019 
2c AO 06 00028 1$ INCL 44(RO) : 2021 
000000006 00 06 00028 INCL LNKS$GL_SHRSYMS s $058 
1c Al 30 6A 00031 MOVL 48(RO), 28(R1) 3; 202 
08 Al 40 8F 88 000 BISB2 #64, 11{R1) 3 2024 
0 Ad 51 00 00038 MOVL R1, 48¢R0) 3 $05¢ 
50 01 DO OO03F 2$ MOVL #1, RO 3: 2026 
04 00042 RET : 2027 
; Routine Size: 67 bytes, Routine Base: SCODES + 0C54 
3 1346 2028 ! 
3; 154 029 ! MAIN BODY OF PROSYMBOL 
3; 1548 030 ‘ 
: 1549 th local 
; 1550 0 § found, ! TRUE IF FOUND IN TABLE 
3; 1551 0 symbo.value, ! VALUE OF SYMBOL FROM OBJECT FILE 
: 1236 0 symbolcluster : ref block (, byte], ! POINTER TO CLUSTER DESCRIPTOR 
3 133 035 nxtsyment : ref block C, byte], !' USED AS POINTER IN SCAN OF UNDEFINED LIST 
3 1554 o39 psctmapent : ref block C, byte], ! POINTER TO MAPPING TABLE ENTRY 
; 1555 0 psctdesc : ref block C, byte], ! POINTER TO P-SECT DESCRIPTION 
3 1326 038 modpscontriblk : ref block C, bytel; ! POINTER TO THIS MODULE'S 
3; 155 039 ! CONTRIBUTION BLOCK 
$ 1228 0 bind 
3; 155 1 symbolrec = objvec C.gsdoffset] : block C, byte]; 
: 1560 “g builtin 
3 1561 04 insque, 
: 1366 044 remque; 
3; 156 045 
3 1564 § symtabent = 0; 
: 1565 
: 1396 3 , 
3; 156 ! FIRST CHECK VALID SYMBOL NAME 
ae a 
: 1390 3 if .symbolstring £0} gtru_sym$c_maxing ' IF THE SYMBOL LENGTH IS OUTSIDE 
3 1571 B2 or .symbolstring eql 0 ' LEGAL RANGE 
3 1572 54 then begin 
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157 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


APAAAPPSOAAAAASCAAAAAASO 
Pohononoponofoforonry 

DONO UNEWN—OOOwoufwn—O 
ee es 


—~—O 
—OOe 


"15 


1er$ep-1986 12:45:38 


signal (LinS_ill len, o, ink$gt tri 
Se yy ye 

x md$b_nam 
sUnkSgC_cur ty Prados filengne? : 


return false; 


not .lclsymgsd 
en (if .wordpsectgs 


symbolvalue = (if -sysbolrec Cgsy$v_def] 
then Uy 


d 
then csyabol rec podtyst_velu 
sdf$l_value 


else .symbolrec 
else .symbolrec Clsdf$l_value] 
else 0 


if not (found = (if ott sangee 
then lnkSsearchlocal (symbolstring [0], .sy 


AX-11 Bliss-32 V4.0-74 
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! ISSUE AN ERROR MESSAGE 


! EXTRACT THE SYMBOL VALUE FROM THE RECORD 


! Test for local symbol... 
mbolrec t lsySu_env indx » symtabent, symentnam) 


else ink$search (symbolstring [0], symtabent, symentnam 


) 

-obmodesc Comd$v_selser] and .symbolrec (Cgsy$v_def] 
then return true 
else begin 
ink$insert Coynbotateing CO], symtabent, symentnam); 


-lclsymgs 
then ink$gwinisyms = .lnk$gwinisyms + 1 
else lnk$gw_nsymbols = .lnk$gw_nsymbols + 1; 


symtabent Csym$v_weak] = .symbolrec (Cgsy$v_weak); 
symtabent Csym$v_rel) = .symbolrec Cgsy$v_relJ; 
symtabent [sym$v_lclsym] = .lclsymgsd; 


if otnkSot_ctiash Clink$v_intfil) 


an 
-lnk$gl_ctlmsk ElnkSy su 

or .symtabent (sym vatelsya] 

then symtabent [sym$v_supres 


sys] 
= true; 


if not -synbolrec Cgsy$v_def) 
then beg n 
inkSinsudfsym t+ abent); 
if not .symtabent (sym$v_weak) 
and not .symtabent ([sym$v_l(clsym] 
then begin 

if  inkSol_libsys neq 0 

then beg n 


! IF THE CURRENT FILE IS 

! AND THE LIST HAS EMPTIE 
: FOR THE FILE SO THAT TH 
UNDEFINED LIST ONE MORE 
b 


ind Libsymnam = .lnk$gl_Libsy 
= snb$c_fx 


memos 


AS 
DD 
El 

Tl 


EARCH MODULE, AND THIS 
SEARCH OR IT'S A REFERENCE 


! COPY THE WEAK, RELOCATABLE 
! (OMIT DEF FOR NOW) 
! SET FLAG IF LOCAL SYMBOL 


IF THIS IS THE INTERNAL (SYSTEM 


LIBARY FILE) AND THE DSUPPRESSION 
R_IT*S A MODULE-LOCAL SYMBOL 
THEN SUPRESS THIS SYMBOL 


T WAS A REFERENCE 
N TABLE 
INSERT IN UNDEFINED SYMBOL LIST 
IF THE oP ie tark dS REFERENCE 


AND NOT A LOCAL SY 


H LIBRARY AND THE MODULE IS PULLED 
G THE PROCESSING OF THE MODULE OR 
RY SEARCH WILL RETURN TO THE TOP OF 


oLnkSel_t ibsye Csym$b_naming) 
: bloc 


k C, Bytel; 


] 
N15 
LNK_OBJPASS1 16-Sep-1984 00:12: AX-11 Bliss-32 V4.0-74 Page 56: 
y0c2000 1 mH aett Ti 90:18:38 LINKER: SRe LNKOBJPS1.852;1 . (16) | 
; 16 11 
3 1 1 118 if .ink$gl_curfil Cfdb$Sv_libsrch) 
; an 
3 12 : 13? f (.Lnk$gl_Libsym eql Lnk$gl_udfist 
3 r 
3; 1635 119 7 chSlss (.pysentnes penbs>_nening ° Fepsstace pareee nase 
; 12 113 f , -Libsymnam Usnb$b_namingJ, Libsymnam [snb$t_name 
: 16 120 g then Lnk$gl_curfil Cfdb$v_newudf] = true; 
; 16 121 end; 
: 1909 ; § 2 end; 
; 189 1 & crefilter (false, .symbolrec Cgsy$v_weak]); 
3: 164 125 4 return true; ! AND WE ARE DONE WITH THIS 
3 16446 1 $ end; ! UNRESOLVED REFERENCE SO RETURN SUCCESS 
3 Mo } end; 
: 189 1 § if 5 Csym$v_def) ! IF THE ENTRY IN 
3: 1648 1 then begin ' THE SYMBOL TABLE IS 
3 1649 131 if .obmodesc Comd$v_selser] ! A DEFINITION AND 
3; 1650 1 § then return true ! THIS IS SELECTIVE 
; 1651 1 else if not osynbolrec Cgsy$v_def) ! SEARCH, IGNORE SYMBOL. 
; 1936 1 4 then begin ' IGNORE REFERENCE TO DEFINED SYMBOL EXCEPT FOR CREF 
; 165 135 4 f -symtabent Csym$v_shrimg] ! IF SYMBOL IS FROM SHAREABLE IMAGE 
3; 1654 1 $ 4 and not .symtabent Csym$v_crosref] ! AND HAS NOT BEEN CROSS-REF'D YET 
; 1655 1 then begin 
3 1928 : : local defomdptr : ref block C, byte); 
: 1658 140 5 if not .symtabent Csym$v_gref] ! ENTER SYMBOL INTO SHR LIST IF NOT DONE YET 
3 1922 1) then shrimgsym (); 
3 1661 128 LibSlookup_tree ( Lnk$gl_omdtree ! FIND OMD FOR MODULE THIS SYMBOL DEFINED IN 
3 1666 144 »»symtabent Csym$l_omdnum] 
3: 166 145 - inkScompare_omd 
3 Hb ¢) rg defomdptr 
: 1068 148 crefilter ( true, .symtabent Csym$v_weak] ! CROSS REF THE DEFINITION 
3; 166 149 -defomdptr Cnode$l_ptrJ 
1669 131 ‘ 
; 1876 13¢ if . ink$gl_ctlask Elnk$y Long) ! IF A_LONG FORM MAP IS REQUIRED 
: 1671 15 and not .symtabent bsys v_rel] ' AND THIS SYMBOL IS BASED 
3 1o7e 154 and not .symtabent syaby pupres: ! AND NOT SUPRESSED 
3 167 132 then crfSinsrtref ( (nk$Sal_val cies ! INSERT THIS 
3 1674 1 § » symtabent Lsym$l_valuel ' SYMBOL AS A REFERENCE TO ITS 
3 1675 15 2 symentnam Lsnb$b_naming] ! VALUE 
3 1978 158 --symtabent Csym$w_flags 
3: 167 159 0 
: 1678 160 5; 
: 19 193 ? end; 
; 1681 188 2 crefilter (false, .symbolrec Cgsy$v_weak]); 
: 168 188 4 if -Symtabent fsyagv_shr ing] ' IF SYMBOL IS FROM SHAREABLE | 
3: 1684 1 4 and not .symtabent ([sym$v_gref] ' AND HAS NOT BEEN LINKED INTO SHR LIST 
; 1685 167 4 then shrimgsym (); i THEN DO SO NOW 
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return true; 
end; 


re 


if -Symbolvalue eql .symtabent Csym$l_value] 
and not .symbolrec [gsy$v_rel 

and no* .symtabent [sym$v_rel 

then return true; 


if -Symtabent Csym$v_optsym] 
and not .symbolrec ([gsy$v_rel] 
then begin 


FROM A NON SEL 
ND THE VALUES A 
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! AND ALL DONE 


TIVE SEARCH MODULE. 
QUAL ALL IS WELL. 


! IF DEFINED BY OPTION 
! AND 2ND DEF. IS ABSOLUTE THEN WE WON'T RED 
eel BUT WE NEED TO INDICATE WHICH | 


POPIPOPIPOPIPOPIPOPIPUPINIPONIPIPIPIPININOPPOPoNnPD 


a ir i ir ar ir ir ir ir i ir ir ir ir ir ir ir ir ir ir ir ar ar rs 
Cd NIA UES NP © OO WAU E WN OO ODNOULSWN—O0 


4A ttt de bd Deh De Re h A$ hah tty rt arte Pi i 


PIPUIPOPIPINPIPIPNPIPINININININININININININ 2 2 


PAPAIN BB BNA BH ANAS BBM BB SE AAA AU ENN NINN NWN 


POPDPOPOPIPYANININOPYINYPININIPINIPYAIPIPONPYPIPIPUPINPINYPYNINYNY 


MEU 9 OONOUE WO OSNOUES WMO 


PRORIPORONINY 2 —t 


MoProfornon 


psctmapent = fndpscmapent (Cif not .lclsymgsd 
then (if .wordpsectgsd 


then .symbolrec CsdfwSw_psindx] 


! FIND PSECT MAPPING TABLE E 


else .symbolrec (Esdf$b_psingx] 


else .symbolrec Clsdf$w_psindx] 
psctdesc = .psctmapent Cpmt$l_pscdes); 


if .psctdesc neq 0 
then begin 

symtabent Csym$l_psclst] = .psctdesc Cpsc$l_symlsti; 
pecteeas Cpsc$l_symlst] = .symtabent; 


en 
else begin 
symtabent {sym$l_psclst] = .psctmapent Cpmt$l_symlst] 
pac tmapent Comt$C_symlst) = .symtabent; 
end; 


return true; 
nd; 


if .symtabent Csym$v_shrimg] 

and (if (symbolcluster = .symtabent Csym$l_cludscJ) eql 0 
then false 
else .symbolcluster (clu$v_based] 


and .ink$gl_curclu peiugy_sarie ] 


and Me} curclu Cclu$v_based 

and (.symtaBent Csym$l_vaTue] + .symbolcluster Cclu$l_base] 
) 

- symbol value 2, inkSgt_curelu Cclu$l_base] 


then return true; 


signal (Lin$_muldef, 3, symbolstring (0), obmodesc Comd$b_naming], 


if not .symbolrec (gsy$v_rel 
and not .symtabent [sym$v_rel 
then symtabent [sym$l_value] = .symbolvalue; 


! GET ADDRESS OF PSECT DESCRIPTOR 


IF P-SECTION IS 
DEFINED, GET THIS 
P-SECT BASE 
LINK SYMBOL 
LIST 

P-SECTION NOT 
DEFINED YET, SO 
LINK SYMBOL 
MAPPING TABLE 


! NOW WE CAN LEAVE QUIETLY... 


! IF SYMBOL FROM SHAREABLE IMAGE 
! AND THE IMAGE IS BASED 


! AND THIS IS A BASED 
! SHARED IMAGE 


! WHICH IS BASED 
! AND THE VALUES ARE THE SAME 


! THEN IGNORE THIS DEFINITION COMPLE 
ink$gl_curfil Cfdb$q_filename)); 


! IF BOTH ARE ABSOLUTE 
' THEN WE SIMPLY REDEFINE 
THE VALUE 


16 

16-Sep-1984 00:12: AX-11 Bliss-32 V4.0-74 Page 58 
voaz080 1$-Se0-1984 90:18:38 LINKER. SRCJLNKOBJPS1.832;1 . (18) 
3; 17446 
3 1745 5 return true; 
3 ites 8 end 
: ihe FE stew 
: 1348 1 i THE ENTRY IN THE SYMBOL TABLE IS EITHER A NEW REFERENCE 
: 1731 ¢ JUST INSERTED OR A REFERENCE AWAITING DEFINITION. 
; 17 ¢ 4 i IF THIS IS AN INCOMING DEFINITION WE PROCEED TO DEFINE THE 
3 7 5 : SYMBOL. THAT IS: 
; 17546 § : IF UDFLINK FIELD IS NON ZERO, THE TABLE ENTRY 
H 1722 : IS ON THE UNDEFINED SYMBOL List, SO REMOVE IT 
3; 17 $ & ! AND DECREMENT THE UNDEFINED COUNT (PROVIDED IT IS 
3 173f 4 NOT A WEAK REFERENCE). 
: 1759 4) i THEN COPY INTO THE SYMBOL TABLE ENTRY THE FLAGS, 
: 1760 2g ! VALUE, ENTRY MASK, DATA TYPE AND FINALLY 
; 1761 43 ! LINK fHE SYMBOL ON THE OWNING P=SECTION LIST 
; 1768 45 i IF THIS IS (ANOTHER) INCOMING REFERENCE, AND IT IS 
3: 1764 246 ! NOT A WEAK REFERENCE, ENSURE THAT THE SYMBOL TABLE ENTRY IS 
3; 1765 47 ! ALSO NOT A WEAK REF ERENCE AND THAT THIS STRONG REFERENCE 
F} 1706 36 TO AN UNDEFINED SYMBOL IS COUNTED. 
: 1768 2250 begin 
3 ‘ ' IF THIS IS 
3 179 2254 4 By BS nc rye i ANOTHER REFERENCE THEN 
: V7? 2288 ? crefilter ‘false, .symbolrec Cgsy$v_weak]); ! CROSS REFERENCE IT 
; . k ! IF WEAK, IGNORE IT SINCE THE ONE WE 
: 178 $522 ¢ Gel eee eet . hd is AT LEAST WEAK AND NOTHING TO 
: 138 2287 4 if .symtabent Csym$v_weak) i IF A STRONG REFERENCE AND SYMBOL TABLE 
+ 1777 259 «5 then begin . i ENTRY IS WEAK 
3 1778 2260 2 symtabent Csym$v_weak] = false; ! MAKE SURE IT IS STRONG 
: if .symtabent Csym$v_lclsym) 
; 178 $568 3 then (nk$qw. nudflsyms = .lnk$gw_nudflsyms + 1 ! AND COUNT THE STRONG REFERENCE 
3 178 ssee ? else ink$gw_nudfsyms = .lnk$gw_nudfsyms + 1; 
: 7B 2966 4 return frune ! AND THAT'S IT FOR REFERENCES. 
1 os 
: 1787 9 
5 1788 4 AND NOW FOR A DEFINITION 
; iz ink ! IF THIS SYMBOL TABLE ENTRY IS ON 
: 1791 ae 4 1 BEY mee mgs en ene es i UNDEFINED SYMBOL LIST, 
3 1736 a ? remque (symtabent Csym$l_udflink], nxtsyment); ! REMOVE FROM THE LIST 
; if .nxtsyment eql .ink$gl_libsys | IF THE ONE REMOVED IS THE ONE TO SEARCH 
F 1798 : 4 then” ink gU libsys = smatbynent Csym$l_udflink); ! FOR NEXT, MOVE TO ONE BEYOND 
: 17 4 
3 1799 ig « if not .symtabent Csym$v_weak] ' IF IT IS NOT A WEAK REFERENCE 
: 1738 281 t _ if .symtabent Csym$v_lclsym) 
; 1800 ; 82 4 then {nk$gw nudfisyes = .lnk$gw_nudflsyms - 1 
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else Ink$gw.nudfsyms = .Lnk$gw_nudfsyms - 1; 


already declared hat way (via the UNIVERSAL=name option), 
redefinition later ( 
universal symbol (ref OR def) means. 


ee ee 


AX-11 Bliss-32 V4.0- 
LINKER.SRCJLNKOBJPS1 


! DECREMENT NUMBER UNDEF INED 


Allow the symbol table entry to inherit the suppress and local symbol flags, 
the universal flag. If the symbol is to be universal, then it has either be 
or will be set by a 
-@., @ transfer vector). It is not clear what an incoming 


symtabent Csym$w_flags] = (.symtabent Csym$w_flags] and (sym$m_lclsym or sym$m_supres or sym$m_uni)) 


or 
(.symbolrec Cgsy$w_flags] and (not 


symtabent Csym$v_entmsk] = .entmskflg; 


if .lnk$gl_ctlmsk agp allunivd 
then symtabent(sym$v_uniJ = true; 


symtabent Csym$b_datyp] = .symbolrec Cgsy$b_datyp]; ! 
symtabent [sym$l_value] = .symbolvalue; : 
symtabent Lsym$w_entmsk] = .entrymask; ! 
symtabent Csym$v_shrimg] = .obmodesc tomd$v shrimg); : 
psctmapent = fndpscmapent (Cif not .lclsymgs 

then (if .wordpsectgsd 


COPY THE ENTRY MASK FLAG 


lLobals are to be promoted 
versal, do this one now 


! COPY DATA TYPE 
! COPY THE VALUE 


THE MASK 
SHAREABLE IMAGE FLAG 
FIND PSECT MAPPING TABLE ENTRY 


then .symbolrec (sdfw$w_psindx] 
else .symbolrec [sdf$b_psindx] 


else -symbolrec Clsdf$w_psindx] 


); 
“Pee rmepent Comt$l_pscdes); 
-lnk$gl_curclu; 

« Lnk$gw_nmodules; 


psctdesc 
symtabent Csym$l_cludsc 
symtabent Csym$l_omdnum 


if <syatebont Csym$v_shrimg] 
then begin 
symtabent Csym$v_uni] = false; 


if .found and not .symtabent Csym$v_gref] 
then shrimgsym (); 


! DON'T CREF SHAR 
! BE CREF'ED WHEN 
end 
else : : 
ink$gw_lsymbols = .lnk$gw_lsymbols + 1; : 
if .found } 
or not .symtabent Csym$v_shrimg) ' 
then begin 
crefilter (true, .symbolrec Cgsy$v_weak]); : 
if elnk$gl_ctlmsk Clnk$v_long) 


and not .symtabent Csym$v_relJ 
one not .symtabent ([sym$v_supres] 
en 


GET ADDRESS OF PSECT DESCRIPTOR 

SET POINTER TO CLUSTER DESCRIPTOR 

SET INDEX OF DEFINING MODULE 

COPY SHR IMAGE FLAG 

CLEARING UNI IF SYMBOL FROM ANOTHER IMAGE 
BEEN LINKED INTO THE LIST YET 

T NOW 

HAREABLE IMAGE SYMBOLS ON DEF. 

A REFERENCE TO IT IS ENCOUNTERED 


NOT FROM A SHR IMAGE, 
COUNT ANOTHER SYMBOL THIS IMAGE 


IF SYMBOL ALREADY REFERENCED 
OR NOT FROM A SHAREABLE IMAGE 


SO CROSS-REFERENCE IT NOW 
! IF A LONG FORM MAP IS REQUIRED 


SYMBOL IS ABSOLUTE 
AND NOT SUPRESSED 


16 
1b-5¢ -1986 00:12: AX-11 Bliss-32 v4.0-74 : 0 
ease e=foae 93:08:88 ee tnen tae siacossees oS2.1 age 185 


H 9 4 crfSinsrtref ( Lnk$al_valctlt ! INSERT THIS 
; 41 & » symtabent Lsym$l_value] ' SYMBOL AS A REFERENCE TO ITS 
3; 3 rk: 4 » Symentnam Lsnb$b_naming] ! VALUE 
; 45 4 -symtabent Lsym$w_flags 
3 3 ¢ 44 4 0 
: 1 45 4 : S; 
3 end; 
; 1866 a3 ; if td 0 ! IF P=SECTION IS 
3 -psctdesc neq ! - N 
3; 186 49 4 then et he ' DEFINED, GET THIS MODULE'S 
; 1868 50 4 modpscontriblk = .psctmapent ppntPt medcend: ! CONTRIBUTION BLOCK AND 
3 1992 é) 4 symtabent Csym$l_value] = .symtabent bays _value] + ! ADD THE OFFSET FROM 
; 1870 ¢ 4 -modpscontriblk Cmpc$l_offsetd; 
; 1871 53 4 symtabent Csym$l_psclst] = .psctdesc Cpsc$l_symlsfJ; ' PeSECT BASE 
: 13r4 22 ? pec tdeee Cosc$l_Symlst] = .symtabent; ! LINK SYMBOL ON TO P-SECT LIST 
: 1874 356 4 else begin ! P=SECTION NOT DEFINED YET 
; 1875 357 4 syatabent Csym$l_psclst]_ = .psctmapent Comt$l_symlstJ;! LINK SYMBOL ON LIST OFF 
3 1876 58 4 psctmapent Cpmt$T_symlst] = .symtabent; ! MAPPING TABLE 
3; 187 59 end; 
; 1878 2360 
; 1860 363 a fey ! END OF DEF INITIO 
3 end; ! EN N N 
: 1881 $308 g 
3; 1882 2364 1 end; ! END OF SYMBOL ROUTINE 
OFFC 00000 PROSYMBOL: 
«WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 3 1967. 
5B 00000000' EF 9E 00002 MOVAB LNKSGW_NUDFLSYMS. R11 $ | 
5A FECA CF 9E 00009 MOVAB CREFILTER, R10 : 
59 00000000° EF 4 BOONE MOV SYMTABENT, R9 ; 
44 04 f 0001 SUBL #4, S 5 | 
5 EC AY 3C 00018 MOVZWL GSDOFFSET, R5 3 2041. 
55 F8 Ad CO 000IC ADDL2 OBJVEC, RS ; 
69 D4 00 0 CLRL_ SYMTABENT : 2046. 
50 FC 9 9A 00022 MOVZBL Nile alent RO : 2052. 
1F 0 91 000 3 CMPB RO, #31 3 
04 #1A 38 BGTRU 1 s 
50 05 00028 TSTL RO ; 2053 
A le $8 D BNEQ 2s 3 
7E 000000006 00 4 § O2F 1$: ADDL3) #20, LNKSGL_CURFIL, -(SP) : 2058 
50 AY YF 000357 PUSHAB Sppeeest sae 3 2057 | 
1F DD OOO3SA PUSHL #31 ; 2058 
50 dd 00035C PUSHL RO : 
FC AY DD OO0SE PUSHL SYMBOLSTRING : | 
00000000' F OF 041 PUSHAB LNKSGT_SYMSTRING 3 $833 | 
6 DD 00047 PUSHL # ; 2058 | 
00000000G 8F DD 00049 PUSHL #LINS_ILLNAMELEN F 
000000006 00 08 FB 0004F CALLS #8, LIBSSIGNAL 3 
03D 3) B26 BRW 54 ; 3060 
57 02 A . 2 2$: MOVAB 2(R5),_R7 : 2063. 
1A 67 01 € 99 D BBC #1, (R7), 5$ : | 
10 E5 Ad €E8 00061 BLBS = LCLSYMGSD, 4$ : 2064 
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v04 


01 


=PRAPASSI 


6: ~¥e0~1984 90:13:36 AX-11 Bliss-32 v4.0-7 Page 61 


1 
1 LINKER. SRCJLNKOBJPS1. 3 2:1 (16) 
6 6 Ad £9 00 65 BLBC  WORDPSECTGSD, 3$ : 2065) 
4 6 A 06 0 69 MOVL 6(R5), SYMBOL VALUE + 2066. 
54 05 A 06 0 3$: MOVL $fRs), SYMBOL VALUE : 067 
54 08 A 06 O78 4$: MOVL (RS), SYMBOL VALUE + 2069 | 
2% 79 BRB 3 2064 | 
4 D4 O78 5$: CLRL § SYMBOLVALUE + 2063. 
15 gS Ag £9 007D 6$: BLBC _—sLCLSYMGSD, 7$ + 2074 | 
04 Ad OF 90 1 PUSHAB SYMENTNAM > 2075 | 
59 pp 0 PUSHL 9 : | 
7E 04 AS 3¢ 00 MOVZWL 4(RS), 5768 : 
FC AD «ODD A PUSHL  SYMBOLSTRING : 
000000006 00 4 FB 0008D CALLS #4, LNKS$SEARCHLOCAL : 
F 11 00094 BRB : 
04 Ad 99F 00096 7$: PUSHAB SYMENTNAM + 2076) 
59 DD 00099 PUSHL 9 F 
FC A9 0D 00098 PUSHL SYMBOLSTRING $ 
000000006 00 03 FB 00098 CALLS #3, LNKSSEARCH : | 
58 50 0 D00A 8$: MOVL RO, FOUND ; 
03 +t :} 59 OOA8 BLBC FOUND, 9$ : 2074 | 
00ce 1 0008 BRW : 
07 3c AD 03 &1 OOOAE 9$: BBC #3, OBMODESC+20, 10$ ; 2078 | 
03 67 01 é 0008 BBC #1. (R7), 10$ : 
036E 31 00087 BRW i ; 
04 AS 9F OOOBA 10$:  PUSHAB SYMENTNAM > 2081 | 
59 DD 000BD PUSHL 9 ; | 
FC Ad DD O00BF PUSHL  SYMBOLSTRING : 
000000006 00 03 FB 000C2 CALLS #3, LNKSINSERT ; | 
05 ES Ad €E9 000C9 BLBC = LCLSYMGSD, 11$ : 2082 | 
FE AB 66 000CD INCW  LNKSGW_NLSYMS : 208 
03 11 00000 BRB 12$ : 
F6 =AB OB6 90002 11$:  INCW —LNKSGW_NSYMBOLS + 2084 
51 69 DO 00005 12$:  MGVL  SYMTABENT, R1 + 2086 
50 OA Al 3 00008 MOVAB 10(R1), R ; 
01 00 67 FO 000DC INSV (R7), #0, #1, (RO) : 
67 01 03 EF O00E1 EXTZV #3, #1, (R7), R2 + 2087 
01 03 52 FO O00E6 SV sR2, #3, #1, ¢ : 
01 00 ES Ad FO OO0EB INSV ucts mGSD, #0, 1¢RQ) : 2088 
08 000000006 00 03 €1 OO0F BBC #3, LNKSGL _CTLMSK41, 13$ : 2090 
04 000000006 00 06 £0 OOFA S 6, NKSGL~ “CTLMSK+1. 14$ : 209 
04 01 AO £9 102 13$: BLBC 1(R : 3093 
01 AO 0 ; 0106 14$: BISB2 a2, Dd 0) > 2094 
62 67 1 £0 O010A 158: 5 #1, (R7), 19% + 2096 | 
1 DD 001 USHL 1 : 2098 | 
F701 cA 01 FB 0011 CALLS #1, LNKSINSUDFSYM : | 
0 69 00 0011 MOVL § SYMTABENT, RO ; 2099 | 
47 A AO EB O01 BLBS  10(RO), 178 ; 
43 AO £8 OO11C BLBS 11(RO). : 3100, 
50 000000006 90 09 1 g MOVL LNKSGL _LIBSYM, RO > 2102 | 
A 13 001 BEQL 7$ : 
51 OF AO 9A 00129 MOVZBL 15(RO), R1 : 2110. 
51 20 51 C3 00120 SUBL3_  R1, RO. R1 ; 
1 05 C2 00131 SUBL2 #5. RI * 2111 | 
56 000000006 00 p 1 MOVL LNKSGL_CURF IL, R6 > 2113 | 
OA ag 138 TSTB 9(R6) : 
23 18 0013E BGEQ ~=s«a17$ : 
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§ 16 
16-Sep-1 
14-Sep-1 

3 140 

D 144 

1 147 

149 

A 00140 

A 00151 

D 00155 

158 

if 15D 
8 15F 198: 
EF 163 17$: 
D4 4 
FB QO16A 

31 3198 18$: 
4 01 19$: 
5 Bote 

1 0017 
EO 0017B 20$: 
5 00180 

1 00184 
E1 Ot 21$: 
EO 0018C 

EO 00191 

FB Boi 
DD 00198 22$: 
9F 00190 
DO OO1A1 
DD O01A4 
9F OO1A7 
FB OO1AA 
DO 001B1 
DD 00184 
DO 00187 
EF OO1BA 
DD 001C0 
4 pice 
E bore 
4 O1CC 
EO OOICF 
DO 00104 
EO 00107 
D4 0010C¢ 
Hantstai 

ef pied 
pp 1EA 

F 1E 

FB OO1F 
EF OO1F9 238: 
ee 1F 
of Bp 
EO 

fe 1 

3 1 gos: 
dO 18 25$: 


Be 12:06:38 
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LNKSGL_UDFLST, R2 
RO, R 

16$ 

SYMENTNAM, RO 
4(RO), R3 


4(R1). R2 
ase 5(R0), #0, R2, 5(R1) 


0(R6) 
#0, #1, (R7), =(SP) 
#2, CREFILTER 


SYMTABENT, RO 
a 10(ROS, 208 


#3, OBMODESC+20, 18$ 
#1 21$ 


—— 

>. 
a oe ~~ 
~— 

. 


& 2 
SHRIMGSYM 

LNKSCOMPARE_OMD 

SYMTABENT, R 

LNKSGL_OMDTREE 

#4, LIBSLOOKUP_TREE 

DEFOMDPTR, RO 


(R 
SYMTABENT, RO 
#0, #1, 10(RO), =-(SP) 


& 
Ss 
# 


He 

YATABENT, R 
5 

-(§p 
SYMTABENT, RO 

10(RO), -(SP) 

ae SYMENTNAM, -(SP) 


LNKSAL_VALCTLTB 
#5, CRFSINSRTREF 
#0; #1, (87), =(SP) 


-(§p 
#2, CREFIILTER 
SYMTABENT, RO 
#3, 11(ROS, 248 
#6. 11cRO), 24$ 
SHRIMGSYM 


SYMTABENT, RO 
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H 16 
LNK_OBJPASS1 16-Sep-1984 00:12: AX-11 Bliss-32 V4.0-74 Page 63 
iOa2000 1o-808-1 382 90:18:38 EMINKER SRC ILNKOBJPS1 .B 231 9° 16) 
60 4 01 18 CMPL $YMBOLVALUE, (RO) ; | 
if 3 BNEG $ : | 
05 67 E BBS #3, (R7), 26$ + 2179 
C OA AO £1 4 BBC #3. 10(RO), 48 + 2180 
4 OB OA 1 €1 9 26$: BBC a. 11(RO). 32$ : 185 
2 4 ; EO BBS #3, (R7) 338 > 2184. 
12 ES AOE BLBS LCLSYMGSb, 29S + 2186. 
06 & Ad £9 BLBC WORDPSECTGSD, 27$ + 2187 | 
04 Ad ; 0 A HOV UL At, », RO + 2188 
50 06 AS QA if 7$: MOVZBL 4(R5), RO : 3189 
50 pp 44 28$:  PUSHL RO + 2187 
04 11 46 BRB 30$ : 
7E 06 AS 3C 0024 98: MOVZWL 6(RS), -(SP) : 191 
FASC CA gi FB 0024C 30$: CALLS #1, FNDPSCMAPENT > 2186) 
3¢ 0 pO 00251 MOVL RO, PSCTMAPENT : | 
f vs DO 00 34 MOVL § (PSCTMAPENT), PSCTDESC > 2193 
50 § DO 00257 MOVL § SYMTABENT, RO + 2197. 
D3 00 SA TSTL PSCTDFSC + 2195 
03 13 0025c BEQL © 31$ : 
01B 31 0025 BRW 51$ ; | 
01BB 31 00261 318: BRW 52$ ; | 
50 69 DO 00264 32$:  MOVL $$ SYMTABEN : 2208 
37 0B Ad 03 £1 00267 BBC #3, 11(ROS, 33$ F 
51 20 Ad 09 0026¢ MOVL 3¢(R0), SYMBOL CLUSTER > 2209. 
31 13 00270 BEQL 33$ : 
20 58 «Al E9 00272 BLBC #§ B8(SYMBOLCLUSTER), 33S + 2211) 
6 000000006 00 00 00276 MOV: —— LNKSG CLU, R6 : 2213 
21 58 6 02 €1 00270 BBC #2, B8TR6), 33S : 
56 000000006 00 DO 00 82 MOVL NKSGL_CURCLU, R6 + 2214 
16 58 Ab ED 0028 BLBC 8(R6) : 
50 60 4C 6 Al «C1 00280 ADDL3 76(SYMBOLCLUSTER), (RO), RO : 221 
51 000000006 00 bd 00 92 MOVL LNKSGL _CU LU, : 221 
51 54 4C Al C1 00299 ADDL3 76(R1)> SYMBOLVALUE, R1 ; 
51 50 01 0029E CMPL = RO, RI F 
56 13 OO02A1 BEQL © 36$ : 
7E 000000006 00 14 C1 002A3 33$: ADDL3 #20, LNKSGL_CURFIL, -(SP) > 2221 
50 AD OF 99 AB PUSHAB OBMODESC+40 ; 
FC AY DD OO2AE PUSHL SYMBOLSTRING ; 
03 DD 00281 PUSHL # ; 
000000006 BF DD 00283 PUSHL #LINS_MULDEF : 
000000006 09 ; FB 00289 CALLS #5, LIBSSIGNAL ; 
35 t 03 £0 002c0 * (R7), 36$ > 222 
5 9 D 9 C4 MOVL § SYMTABENT, R : 222 
2D OA A a C7 BBS #3, 10(ROS, 36$ ; 
00 B89 4 dO 002¢C MOVL YMBOLVALUE, aSYMTABENT : 332 
37 11 00 04 BRB 6$ : 225 
26 67 i EO 002D2 34$: BBS #1, (R7) 378 ; 29 
7E 67 01 00 EF 00206 EXTZV #0. #1, (R7), -(SP) > 225 
D4 00208 CLRL 0s = ¢ §P) ; 
6A 02 F DD CALLS #2 CREF ALTER : 
16 67 €E E (R?), 36$ : 33595 
50 69 D E MOVL YMTABENT, RO : 2258 
OF 0A AO ; £6 9(RO) és ; 
OA AO 01 8A OOCEA BICB2 #1, 10(R > 2260 
04 0B AO £9 00 EE 11¢R0), 35$ : 6¢ 
6B B86 002F INCW LNKSGW_NUDFLSYMS Z 6 


16 
LNK_OBJPASS1 tb-ge 1984 00:12: AX-11 Bliss-32 V4.0-74 Page 64 
1a=000 1 =300n 1382 90:18:38 LINKER. SRCJLNKOBJPS1.B32;1 9° 18) 
03 11 00264 BRB 36$ ; 
FC AB 86 rg S$:  INCW LNKSGW_NUDF SYMS + 2264 | 
012 L ae: BRW 3$ s $6 
50 69 D FC 37$: MOVL #§ SYMTABENT, RO t 2272 | 
: p FF TSTL (RO) : | 
} BEQL 40$ : 
51 0 OF REMQUE (RO), NXTSYMENT : 3 7% | 
000000006 00 34 D1 é CMPL NXTSYMENT, LNKSGL_LIBSYM : 2276 | 
000000006 99 61 00 0030F MOVL § (NXTSYMENT), LNKSGL_LIBSYM : 3377 | 
69 DO 00 1 38$:  MOVL § SYMTABENT, RO + 2279) 
8 OA Ag F 9 1 BLBS 19(RO) , 40$ : 
4 0B AO CE 1D BLBC 11(RO). 39$ + 2281) 
68 87 00321 DECW  LNKSGW.NUDFLSYMS : 2282 
11 00328 BRB. «GOS r | 
FC AB 87 00325 39S:  DECW LNKSGW_NUDFSYMS + 2283 
50 69 D0 99 8 40$:  MOVL SYMTABENT, RO : 229% 
51 0A AO 3 0328 MOVAB 10(RO), Ri : 
33 1 3C 0032F MOVZWL (R1), R3 : 
3 FFFFDEFB BF CA 00332 ICL2 #-8453,_R3 ; | 
5 67 3¢ 00 MOVZWL (R7), R2 : 2296) 
5 04 CA 00 3 che ; R2 : 
61 § 3 a9 00 F BISW3 R3, Re, (R1) : 
61 01 OF 04 AC FO 0034 INSV  ENTMSKFLG, #15, #1, (R1) : 2298 
03 000000006 00 02 EI 00349 BBC #2, LNKSGL_CTLMSK+3, 41$ : 2300 
61 04 88 00351 BISB2 (R1) : 2301 
OE Ad 01 AS 90 00354 41$:  MOVB  1(RS), 14(RO) + 2303 
60 54 D0 00359 MOVL § SYMBOLVALUE, (RO) > 2304 
08 a0 EE a9 BO 0035¢ MOVW  ENTRYMASK, 8(RO) > 2305 | 
50 3c OAD 01 02 EF 00361 EXTZV a2, #1, OBMODESC+20, RO : 2306 
61 01 0B 0 FO 00367 INSV RO, #11, #1, (RI) : 
12 ES AD EB 00 6¢ BLBS LCLSYMGSD, 44$ : 3307 
06 £6 AQ &9 037 LBC WORDPSECTGSD, 42$ : 2308 
50 04 AS 3C 00374 MOVZWL 4(R5), RO : 2309 
04 11 00378 RB 43 : 
50 04 AS 9A 0037A 42$:  MOVZBL 4 (RS), RO : 2310 
50 DD 0037E 43$:  PUSHL RO : 2308 
04 11 00 BRB 45$ : | 
7E 06 AS 3C 00 82 44$: MOVZWL 6(R5), -(SP) > 2312 | 
FASC CA 01 FB 00386 45$: CALLS #1, FNDPSCMAPENT : 2307 | 
5 50 DO 00388 MOVL RO TMAPENT : 
5 62 00 0038 MOVL § (PSCTMAPENT), PSCTDESC > 2314, 
50 69 00 00391 SYMTABEN ; 2315 
20 Ag 000000096 00 pO 9 94 MOVL  LNKS$GL_CURCLU, 32(RO) ; | 
14 A F AB C 0039¢ MOVZWL LNKSGW NMODULES, 20(RO) : 2316) 
13 0B AO FI Al #3, 11TRO), 468 : 2318 | 
OA A 4 8A 003A6 BICB2 #4. 10(RO) : 20 
1 8 E9 OO3AA BLBC OUND, 48$ 3 23ee 
OA 0B Ad EO OO3AD BBS #6, 14(RO), 478 : | 
00E6 CA FB 00382 CALLS #0 SHRIMGSYM 3323 
11 0038 BRB 47$ : 2318 
F8 AB OB B9 46$:  INCW —LNKSGW_LSYMBOLS 2329 | 
Q 58 €E 6 BC 47$:  BLBS FOUND, ~49$ : 2331 | 
3 0B A 3 PB betes poe SYATABENT Roos 5 oom 
7E yf 01 0 EF 6 £6 49$ EXTZV 9. #1, (RP), =(SP) > 2334 | 
1 DD 003CC PUSHL : | 
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#2, CREFILTER 
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14-Sep e=19 38 99: 18; $ LINKER. SRCJLNKOBJPS1. 8 2;1 
1 routine symbol 
ton ba Pacmmnppe 


local 


Length; 
bind . 


symbolrec = objvec C.gsdoffset] 
entrymask = 0; 


: block C, byte]; 
! ZERO THE ENTRY MASK SINCE NONE EXISTS 
! IF NOT DEFINED 


= symbolrec Hate name] = symbolrec (Csrf$t_start] + 
= symbolrec (sr f$b_naming); 


i not -sysbolrec Cgsy$v_def] 
then - egin 


sralalatrine 
e 
else if .wordpsectgsd ! IF A WORD OF PSECT NUMBER 
then begin 


engt = symbolrec 
ove olstring = symbolrec [sdfw$b_naming]; 
else begin 
ongt? = symbolrec pear se. name] - symbolrec Csdf$t_start] + .symbolrec Csdf$b_naming); 
—_ olstring = symbolrec ([sdf$b_namlngJ; 
en 


! GO PROCESS THIS SYMBOL 
! AND EXIT IF FAILURE 


! UPDATE THE GSD OFFSET FOR NEXT 


if not prosymbol (0) 
then return false; 


gsdoffset = .gsdoffset + .length; 


return true; 
1 end; 
001C 00000 SYMBOLS:.WORD Save R2,R3.R 
54 00000000" EF 9E 00002 MOVAB Syusor STRING. R4 
50 FO A& 3C€ 00009 MOVZWL GSDOFFSET, RO 
50 FC AG CO 0000D ADDL2 JVEC, R 
Fe A4& B4 00011 CLRW ENTRYMASK 
15 02 Ad 1 E9 0014 BBS + ecRO) 
51 50 0 ¢ 0019 SUBL3 oat 
52 04 AO 9A 00010 MOVZBL 4 Miah 
21 52 CO 9 1 ADDL Re, JR 
2 05 Al SE 4 MOVAB Al), LENGTH 
64 06 ao 9 99 8 MOVAB Ztnos: EF NGOL STRING 
2c 11 0000C BRB 3$ 
15 EA AG Eg 0 1$: BLBC_ WORDPSECTGSD, 2$ 
51 20 5 § SUBL3. RO, RO, 
5 OA AO 9A 0 ROVZBL 1 (RO), R3 
31 53 CO A ADDL2 3, R1 
2 0B Al SE 000 MOVAB 11(R1), LENGTH 
64 OA i i 0041 ROVAB 1OCRO), SYMBOL STRING 
51 59 5 § Soa? 2s: SUBL3 RO, RO, R1 
5 09 Ag A 0048 MOVZBL 9(RO), R3 
51 53 CO 0004F ADDL2 _R3, RI 


-symbolrec (srf$b_naming]; 


Pose. 


sdfwS$t_name) - symbolrec CsdfwSt_start] + .symbolrec Csdfw$b_naming];: | 


16 

LNK_OBJPASS1 18-Sep-1986 0 AX=11 Bliss-32 v4.0-7 ress 6? 
y04=000 eet a eh ea ve 3) 
52 M4 Al oF MOVAB 10(R1). LENGTH ; | 
9 AO OF HOVAB —9(RO) , “SYRBOL STRING i 2387 
7E D4 000SA 3$:  CLRL.ss =< SP) : $390 

re70 FB 0005¢ CALLS #1. PROSYMBOL : 
8 9 £9 00061 BLBC : | 
FO AG AO 00064 ADDW2 LENGTH, GSDOF FSET : $300 | 
50 01 0 90068 MOVL. #1. RO : 5394, 
0068 RET : | 
50 D4 0006C 4$:  —CLRL_—séRO : 2305. 

04 0006E RET : 


; Routine Size: 111 bytes, Routine Base: SCODES + 10C6 


; 1915 2396 1 


; 1317 97 (1 = entpnts = 
3 5 18 38 
: 13) loval 
3 1 4 Length; 
3; 19 401 bind 
3 19 4 4 § symbolrec = 
3 19 4 
: 1926 404 if —e soctged 
: 1925 405 then begin 
3; 19 $ 4 entrymask 2 
5 P ret syabolstr ing = 
3 = 
: 1355 409 a+ ag 
3 19 410 else be in 
; 1931 411 entrymask = 
; 19 ¢ tig preoeteereng = 
; 19 41 Length = 
3 19 414 end; 
3; 1935 415 
3; 19 £18 if not prosymbol (1) 
: 133 rt then return false; 
: 1939 a19 gsdoffset = .gsdoffset + .length; 
3; 1940 “sy return true; 
3: 1941 421 end; 
33 
3 
02 AS 
10 A3 
50 52 
51 
50 
52 
0 A 
% 
50 5 
é 
39 
FB13)~—sCF 
07 
2 
0 


G-Feont9te 00:12:36 


objvec C.gsdoffset] : block C, byted; 


$0008 ENTPNTS: .WORD 
0000 MOVAB 


: fa gh - ENTRY POINT MASK 
HE SYMBOL 


T TOT 


9); 
epmwSt_ -nanlng - symbolrec ce start] + .symbolrec Cepmw$b_naming]; 


EXTRACT THE ENTRY POINT MASK 
SYMBOL 


POINT TO TH 


epmSt_ ~nanlng? - * syabotrec Ae start] + .symbolrec Cepm$b_naming]; 


! GO PROCESS THE SYMBOL 
! AND EXIT IF FAILURE 


! ELSE UPDATE THE OFFSET FOR NEXT 


Sav 

6S ave Re.t5 R3 

GSDOFFSET R2 

OBJVEC, R 

UoRDPsEcTSsp, 1$ 
19¢R3) ENTRYMASK 

SYMBOLS TRING 

tres’ R1 

R1 

13{R0), LENGTH 


(R2), ENTRYMASK 
11 ¢Res, pre 


ftass, 
zind), LENGTH 

1, PROSYMBOL 

O NGTH, GSDOFFSET 
1, RO 


-2D—— 


zr DBaae-—a-D 


AX-11 Bliss-32 v4.0 
LINKER.SRC LNKOBJPS1. 5 2:1 


a eee 


LE BRJPASS! 1$-Sep-1986 OQ:12:36 YANNI BLiegcsz y4.0-742, | Page 49 


; Routine Size: 92 bytes, Routine Base: SCODE$ + 1135 


LNK_OBJPASS1 
—v04=000 

1943 4 § 
1944 4 
1945 426 
ine 425 
194 4 $ 
1948 4 
1949 4 : 
1950 4 
1951 430 
1326 431 
195 4 ; 
1320 4 
1955 434 
1326 435 
195 4 § 
1958 4 
1959 2438 
1960 se7n 
1961 440 
1306 sees 
196 mek 
1964 see 
1965 444 
1966 2445 
1967 sees 
1968 a 
1969 448 
1970 2449 
1971 2450 
1378 2451 
197 $e26 
1974 245 
1975 2454 
1976 2455 
1977 2456 
1978 2457 
1979 2458 
1980 2459 
1981 2460 
1386 2461 
198 $758 
1984 246 
1986 ae: 
1989 $282 
1988 467 
1989 468 
1990 469 
1991 2470 
ime 471 
199 tis 
1994 47 
1996 198 
1999 17 
1998 sere 
1999 478 


Sew Be Oe Se Oe Se Oe Ge Be Be Be BH Ge BH Se SH Se Se Be HH He BH Oe Oe SH Gs Oe we we BH Oe Be Oe OH Se Oe Oe Oe Oe Oe Oe Oe Oe OH Oe Os Oe Se Oe Oe Os Os OHHH oe ee. 


PANAMA B&B EE EAA AAAI PUDIIIPYAINIPNNINININPININIPIPIPSPIPIPPPIPIPIPUPIPUPIPOPOPONOPPONRY 


1 
1$-Se0-1986 00:12:54 


SS =~ : 
' 


AX-11 Bliss-32 V4.0 Page 70) 
(19) 


-74 
LINKER.SRCJLNKOBJPS1.832;1 
routine procedef = 

begin 


A PROCEDURE DEFINITION IS AN EXTENDED ENTRY POINT DEFINITION, CARRYING WITH 
IT A DESCRIPTION OF THE PROCEDURE'S FORMAL ARGUMENTS. PROCESSING THESE CONSISTS 
MAL SYMBOL DEFINITION PROCESSING FOLLOWED BY:- 
1) VALIDATION OF THE FORMAT OF FORMAL DESCRIPTION (I.E. JUST CHECK 
THAT MINIMUM NUMBER OF ARGUMENTS SPECIFIED IS LESS THAN 
OR EQUAL TO THE MAXIMUM. 
(2) ALLOCATION OF AN ARGUMENT VALIDATION DATA ARRAY WHICH 
HAS THE FOLLOWING FORMAT: 
! N¢2 ! LENGTH OF ARRAY WHERE N = MAXIMUM # ARGUMENTS 
! MIN ! MINIMUM NUMBER OF ARGS 
! PASS M1 ! PASSING MECHANISM OF ARG 1 


' PASS 4 2 ' Bl oe ial 2 


' 

i 

i 

i 

i 

! 

i 

i 

i 

! 

i 

i 

i 

i 

' 

i 

' 

ETC TO N ARGUMENTS 

: NOTE THAT ONLY THE VALIDATION CONTROL BYTE, ARGUMENT PASSING MECHANISM 
; 1S EXTRACTED FROM THE FORMAL ARGUMENT DESCRIPTORS. THE REST OF SUCH 
DESCRIPTORS IS IGNORED. 

: THE SYMBOL TABLE ENTRY POINTS TO THIS ARRAY. NOTE THAT MULTIPLE DEFINITION OF THE 
; SAME PROCEDURE WILL REPLACE THE VALIDATION DATA WITH NEW DATA. 


| 

| 

i 

| 

local | 

eekly | 

argvaldata : ref vector [, byte], 
argcount; 

! PROCESS THE ENTRY POINT SYMBOL PART | 

' SEE IF ENTERED | 

| 

} 

| 

| 

| 


if not entpnts () then return false; 


entflag = .symtabent neq 0; 
begin 


nd 
formals = objvec C.gsdoffset] : block C, byte]; ! THE FORMAL DESCRIPTION 


7 -formals Cfml$b_minargs] gtru .formals Cfml$b_maxargs] ! IF THERE IS AN INCONSISTENT 
en 
begin ' DESCRIPTION OF FORMALS 
signal (LinS_illfmicnt, 5, ! OUTPUT ERROR MESSAGE 
-formals Cfml$b_minargs), .formals Cfml$b_maxargs], | 
(if .word sect gee then_objrec Cprow$b naatngd else objrec Cpro$b_namlng]), 
¥ nk$gl_curfil Cfdb$q_filename]); 


obmodesc Comd$b_naming], 
return false; 
end; 
gsdoffset = .gsdoffset + fml$c_size; ! UPDATE RECORD POINTER 


f -entflag and (argvaldata = .symtabent Csym$l_valdata]) neq 0 ! IF VALIDATION DATA ALREADY EXISTS 
then 


begin ! MUST BE A NEW DEFINITION 


Lt 


UNE JPASS1 bese -1984 9 212: AX-11 Bliss-32 V4.0-7 Pa aa 
062000 14- Sep-1984 46:38 LINKER. SRCIJLNKOBJPS1. é 231 9019), 


000 479 4 ink$dealblk (.argvaldata (0) Srpreldeta, oo)? ! $O DISPOSE OF OLD DATA : 
1 480 4 symtabent Csym$l_valdata] = 6; D' FORGET IT : 
§ ' 1 end; | ° 
ie : § if Largcount = .formals Cfml$b_maxargs]) eql 0 ! IF MAXIMUM NUMBER ARGUMENTS | : 
006 485 return true; ! 1S ZERO, ALL DONE | : 
$08 28S + onefl | 
-entfla ° 
009 488 then . ; 
010 489 4 begin . 
011 490 4 ink$alloblk f.argcount +2, 5 ered symsl_ valdata]); ! ALLOCATE A VALIDATION DATA BLOCK : 
Org 491 4 argvaldata = ,symtabent teins _valdat ; 
01 $38 4 argue, dete 0] = .argcou "' SET ITS SIZE 
Bie staz 4 acqveaete 1j = “formals ramets patina 5 ! SAVE MINIMUM ARGUMENT SPECIFICATION 
a ee reakoe i | 
ncr i from to .argcount ! N A LOOP THROUGH 
2018 ets i - i ' A FORMA RGUMENT DESCRIPT 
egin ! ALL L ARGUMEN ORS 
2020 2499 & | 
sos) $200 4 bind ; 
Ose $201 : argdesc = objvec C.gsdoffset] : block C, byteJ; ! POINT TO NEXT DESCRIPTOR 
2094 2508 ? if .entflag then argvaldata C.i + 1] = .argdesc Carg$v_passmech]; | 
$056 2505 4 ! EXTRACT THE PASSING MECHANISM | 
2027 2506 4 poeetreyt = .gsdoffset + .argdesc Carg$b_ bytecnt] + ! AND UPDATE RECORD POINTER 
2028 2507 4&4 argsc_ size; 
$063 2508 3 | 
080 5509 3 | 
2031 2510 3 return true; 
sas 2511 2 end; 
203 2512 1 end; 
007C 00000 PROCEDEF: 
-WORD Save R2,R3,R4,R5,R6 3: 2422 
56 00000000° EF 9E 00002 MOVAB SYMTABENT, R6 5 
97 AF 00 FB 00009 CALLS #0, ENTPNTS : 2456 
4C 50 £9 0000D BLBC RO, 4 : 
50 D4 00010 CLRL RO : 2458 
66 rf 00012 TSTL SYMTABENT 3 
02 13 00014 BEQL 1$ ; 
50 D6 00016 INCL RO 5 | 
55 50 DO 00018 1$: MOVL RO, yee koe f 
50 F8 A6 BO 0018 MOVL OBJV : 2462 | 
51 EC Ab 3C Oot MOVZWL OB UFESEN RI ; 
54 50 51 C1 00023 ADDLS RO, R4 ; | 
01 AG 6 91 00027 CMPB) ss (R4),, (RO) > 2464 
1 18 99 H BLEQU 5 : | 
7E 00000000G 00 14 gl 0 p ADDL #20, LNKSGL_CURFIL, -(SP) ; 2470) 
50 Ad SF 000 PUSHAB OBMODESC+4 ; | 
05 E6 Ad €E9 00058 BLBC SO ODDSEETGSD. 2$ ; 2469 


(cr ce Ln 


; Routine Size: 221 bytes, Routine Base: S$CODE$ + 1191 


j 1 } 
/LNK_OBJPASS1 1b-Se -1984 00:12: AX-11 Bliss-32 V4.0-74 Page 72 
/V04=000 aan 1 18:33 LINKER. SRCJLNKOBJPS1.B32;1 ° 133 | 
| 50 0 0003C ADDL2 #12, RO : 
ot BRB : 
50 : CO 00041 a8: ADDL2 #11, RO : 
DD 00044 3$: PUSHL RO : 
7E 01 A& 9A 00046 MOVZBL 1(R4), (SP) ; 2470, 
7E 64 9A 0004GA MOVZBL (R4), =(SP) : | 
| 05 DD 0004D PUSHL #5 : 
000000006 BF DD 0004F PUSHL #LINS_ILLFMLCNT : | 
000000006 00 9? FB BOO CALLS #7, LIBSSIGNAL 3 
| C 11 0005C 4s: BRB 12$ + 2471 
| EC Ab 0¢ AO 0005E 5$: ADDW2 #2, GSDOFFSET + 2476 
1B E9 9006 BLBC ENTFLAG, 6$ + 2476 
20 66 DO 0006 MOVL  SYMTABENT, RO : 
5 18 AO D9 00068 MOVL  24(RO), ARGVALDATA : 
le 13 0006C BEQL $ ; 
53 DD 0006E PUSHL  ARGVALDATA + 2479 
7E 63 9A 90070 MOVZBL (ARGVALDATA), -(SP) : 
000000006 00 02 FB 0007 CALLS #2, LN BLK : 
50 66 DO OO07A OVL § SYMTABENT, + 2480 
18 AO D4 0007D CLRL 24(R ; 
52 01 A& 9A 00080 68: MOVZBL 1(R4), ARGCOUNT + 2483 
50 13 00084 BEQL  11$ ; 
20 55 £9 00086 BLBC_ _—C ENT FLAG, + 2487 
7E 66 18 ¢€1 00089 ADDL3 #24, SYMTABENT, -(SP) + 2490 
02 A2 9F 0008D PUSHAB 2(ARGCOUNT) : 
000000006 00 02 FB 00090 CALLS #2, LNKSALLOBLK ; 
50 66 DO 00097 MOVL § SYMTABENT, RO + 2491 
53 18 AQ DO OO09A MOVL §§_24(RO), ARGVALDATA : 
50 02 A2 9E 0009E MOVAB 2 (ARGCOUNT), RO + 2492 
63 50 90 000A2 MOVB RO, (ARGVALDATA) : 
01 =A’ 64 96 000A5 MOVB (R4), 1(ARGVALDATA) + 2493 
51 D4 OO0A9 7$: CLRL oI > 2501 
25 11 OOOAB BRB 10$ ; 
50 EC A6 3C OOOAD 8S: MOVZWL GSDOFFSET, RO ; 
50 F8 A6 CO 000B1 ADDL2 OBJVEC, RO : 
OA 55 €9 00085 BLBC = ENTFLAG, 9$ + 2503 
54 60 08 00 EF 00088 EXTZV #0, #2, (RO), R4 : 
01 A14 54 90 000BD MOVB R4. 1(1)CARGVALDATA : 
54 EC A6 3C 000C2 9S: MOVZWL GSDOFFSET, R4 : 2506 
50 01 AO 9A 00066 MOVZBL 1(RO), RO : 
50 54 CO OOOCA ADDL2 R4, R : 
EC Ab 50 re Al 000CD ADDW3 #2. RO, GSDOFFSET : 
D7 51 52 F3 000D2 10$:  AOBLEQ ARGCOUNT, I, 8$ + 2496 
50 01 pO 90006 11$:  MOVL #1, RO : 2510 
4 00009 RET : 
50 D4 OOODA 12$:  CLRL RO : 2512 
04 0000C RET : 
| 


SESE Ie a COE ENS LI LRA 2 SR Te ek BD, i ER Ee ace OT LEON 


pay — —— ee EE EeEEEEEeEEeEEEEEeE———eeeEeeeEeE—eeEeEeEeEeEeEeEeEeEew —- = a 


F 1 

UNK PASS1 16-Sep-1 AX-11 Bliss-32 V4.0 Page 73 
/VO4G= =080 14- ~Sep al | 1984 99: 18: 38 LINKER.SRC LNKOBJPS1. o 2;1 ° (20) 
3 2035 13. 1 routine proeom (seqchkflg) = 
3 8 \3 begin 
tf 2038 1g gi PROCESS END OF MODULE RECORDS: | 
3 2039 51 ' (1) VALIDATE SEQUENCE 

; 2040 518 : (2) INTERPRET COMPILER COMPLETION CODE, 

; bey 218 psetane APPROPRIATE ERROR OR WARNING 

; $008 521 ' (3) VALIDATE THE TRANSFER ADDRESS 

: 20466 5 ¢ : (IF ANY) FOR: 

: 2065 5 : (A) P=SECTION DEFINED 

: ee 524 : (B) P-SECTION EXECUTABLE AND RELOCATABLE 

; 204 525 : (C) ADDRESS IS WITHIN THAT P-SECTION 

; 2048 526 § : (D) NOT A MULTIPLE SPECIFICATION -( RETAIN THE FIRST) 

: $008 527 : (4) RECORD THE TRANSFER ADDRESS, SEPARATING AN ADDRESS IN 

: 2050 528 2 | THE DEBUGGER FROM THAT Of THE USER. 

; 2051 529 : (5) TRUNCATE THE MODULE DESCRIPTOR (MAPPING TABLE PORTION) TO ITS 

: ooes S23 CORRECT SIZE FOR NUMBER OF P-SECTS CONTRIBUTED TO. | 

: 2054 2330 2 bind 

; 2055 533 2 eomrec = .objvec : block C, byte; 

; 2056 2534 2 builtin | 

; 2057 $232 nul lparameter; | 

: 2058 536 local 

3 2059 2537 comcode, 

; 2060 2538 2 deferredsym : ref block C, byte], ! POINTER TO DEFERRED SYMBOL 

: 2061 2539 2 deferredsnb : ref block C, bytel, ' DEFERRED SYMBOL NAME BLOCK 

; 2062 2540 2 modpscontr ibLk : ref block C, byte), ' THE MODULE'S CONTRIBUTION TO P=SECT 

: 2063 2541 2 wordpsecteom, ' TRUE IF EOMW RATHER THAN EOM 

; 2064 $266 2 psctmap : ref block C, byte] ' PSECT MAPPING TABLE POINTER 

> 3065 2543 2 psctnum, i P=SECTION NUMBER OF TRANSFER ADDRESS | 

; 2066 2544 2 tfrweak, ' TRUE IF TRANSFER ADDRESS THIS EOM IS WEAK 

3; 2067 2545 § tfradr, ' TEMP FOR TRANSFER ADD wit 

; 2068 2546 tfrpsc : ref block C artes ' TEMP FOR P=SECT DESC. ADDR. 

; 2069 2547 2 objdesc : ref block C, byted, i POINTER TO ALLOCATED OBJ MOD DESCRIPTOR 

: 2070 2548 2 omdnode, 

; 2071 2549 2 curcontriblk : ref block C uf ted. 

3 sore 2550 2 nextcontriblk : ref block @ ytel, 

2 sOeE $22) 2 objdescsize; ' SIZE OF OBJ MOD DESCRIPTOR TO ALLOCATE 

; 2075 $aeg if nullparameter (1) 

: 2076 $22¢ then 

: 2077 555 

; hk 3 228 § if not seachk () then return false; !' VALIDATE THE SEQUENCE OF EOM 

: 2080 558 § ink$gl_curfil Cfdb$v_omdnobin] = ! JF ANY OBMODS FOR THIS FDB ARE | 

; 2081 559 .ink$gl_curf?l Cfdb$V_omdnobin] or .obmodesc [Comd$v_nobin]; } WITHOUT TIR RECS, FLAG IN FDB 

3 Ong 2561 2 wordpsecteom = (.eomrec Ceom$b “rectyp] eql obj$c_eomw); ' DECIDE IF EOM OR EOMW | 

; 2084 206 ; if (if .wordpsecteom ' CHECK LENGTH OF RECORD 

; 2085 56 Fhen (.reclng neq eomw$c zeounin and ((. recing Ls 138 eomw$c_eommx1) or (.recing gtr eomwSc_eommax))) el | 

: 2086 564 4 (.recing neq eom$c_eomm S LENGTH 

3; 2087 565 and ((.reclng [ss conse _eommxl) or (. Rg Ry gtr eom$c_eommax)))) 

; 2088 266 then 

: 2089 56 begin 

; 2090 568 signal (Lin$_illreclen ! AND ISSUE ERROR 

; 2091 569 -reclng, obmodesc londsb naming], Lnk$gl_curfil Cfdb$q_filename)); 


] 


i 


| LWK_OBJPASS1 

“Woez00 

| 

'3; 209 279 

ie 09 71 

-£ $098 38 
5 036 574 
; 209 575 
$099 378 
; 2100 578 
: 2101 579 4 
3 106 580 4 
> 210 581 4 
3; 2106 one 4 
$108 ee 
3; 2107 585 ; 
1 
i $119 sa § 
; sil¢ $389 3 
‘Sia $33) 3 
3 $118 $238 3 
3; 2116 $29¢ 4 
; 2117 595 4 
; 2118 596 4 
: 2119 597 4&4 
: 2120 598 3 
: 2121 599 3 
3; 21 ; 600 3 
3 $i 601 4 
3: 2124 2602 4 
: 2125 2603 4 
3; 2126 2604 3 
: 2127 2605 3 
2} ae 
5 16 2608 : 
: $13 sei 
; 138 2611 
: $136 $618 
s el $eiz 
3: 21357 soi2 
: 2138 616 
: 2139 617 
; 2140 618 
si 
; 123 621 4 
: 2146 6 § 
: 2145 6 
; 2146 624 
: 2147 625 
; 2148 626 4 


-REcHOR SENS Wad GdeNbaSoh 


LINKER. SRCJLNKOBJPS1.852;1 
return false; 
end; 


4 (comcode = .eomrec Leom$b_comcod]) neq 0 ! IF NON ZERO COMPILATION CPLETE CODE 
en 
begin ! CHECK 
if .comcode gtru 3 
then 
begin. 
signal (Lin$_badcecc, 
-comcode, obmode 
ink$gl_curfil Cf 
return false; 
end; 
caee -comcode from eom$c_warning to eom$c_abort ! SIGNAL MESSAGE BASED ON ERROR CLASS 
ft) 


set 


3, ! IF AN ILLEGAL COMPLETION 
sc Comd$b_naming], ! THEN TELL THAT AND QUIT 
db$q_filename]); 


pacaie wareing. : 
signal (Lin$_wrners, 2, obmodesc Comd$b_namina}, lnk$gl_curfil Cfdb$q_filename]); 


Ceom$c_error] : 
egin 
signal (Lin$_errors, 2, obmodesc Comd$b_naming], Lnk$gl_curfil Cfdb$q_filename], 


Lin$_noimgfil); 
Lnk$gl_cElmsk Cink$v_image] = false; ! DISABLE IMAGE IF ERROR 


end; 
Locate gherts : 
egin 
stinel (Lin$_eomftl, 2, obmodesc Comd$b_naming], Lnk$gl_curfil Cfdb$q_filename)); 
LnkSexit (Lin$_fatalerror); ! LINK ABORT 
end; 
tes; 
end; 
if .obmodesc condby A igect eql_Lnk$c_maxpsects ! IF HIGHEST NUMBERED P=SECT 
and .obmodesc Comd$v_nopsct] £5 Lot MAMPSECTS AND STILL NO DEFINITIONS 
en : 
signal_stop (Lin$_nopscts, 2, ' THERE IS A FORMAT ERROR 
obmodesc d ! ISSUE MESSAGE 


om sb haalng) i ISs 
ink$gl_curfil Cfdb$q_filename], Lin’. format); 


if (if .wordpsecteom then (.reclng geq eomw$c_eommx1) else ssrerine geq eom$c_eommx1) ) 
! IF RECORD LENGTH iS (MX1) 
! OR (MAX) 
then 
begin ; ! A_TRANSFER ADDRESS EXI 
psctnum = (if .wordpsecteom : ber THE P=SECTION INDE 
then .eomrec Ceomw$w_psindx] else .eomrec Leom$b_psindx]); 


4 -psctnum gtru .obmodesc Comd$w_hipsct] or .obmodesc Comd$v_nopsct] 
en 
begin 


= 


] 
' 
} 
j 


H “. 

| LNK_OBJPASS1 16-Sep-1984 AX-11 Bliss-32 V4.0 Page 75) 

Woe2000 14-Sep- Be 93: 18: 33 LINKER. SRC LNKOBJPS1 . if 2;1 : (20) 

3 2149 627 4 signal (Lin$_badpsc, 3, IF P-SECTION NOT DEFINED | : 
; 2150 6 8 4 psct num, obmodesc Comd$b snaning), ! THEN OUTPUT ERROR AND QUIT | : 
: 2151 6 4 ink gl_curfil Cfdb$q_filename]) ° 

13 ¢ ; 650 4 return false; ; 

$2 631 4 end | : 
3 2154 6 ¢ 3 lse : 

13 155 6 & begin ‘ 

a 128 : : psctmap = fndpscmapent (.psctnum); ! GET MAPPING TABLE ENTRY | ‘ 
: 138 § ? aon “shot = .psctmap Cpomt$l_pscdes]) eql 0 ! SET THE POINTER TO THAT P=SECTION ‘ 
: 2160 638 3 “beg | ; 
: 2161 639 teat (Lin$_badpsc, 3, BUT ISSUE AN ERROR IF UNDEFINED ‘ 
; 16¢ oy : ea opsgtnum. obmodesc Comd$b pare... . ink$gl_curfil Cfdb$q_filename)); | : 
; return ; : 
; 2164 362 4 end; 
: 2165 643 4 | 
; 2166 2644 4 if not .tfrpsc Cpsc$v_exe] ! IF THE P=SECTION CONTAINING THE ‘ 
; yo soe? ? ae not .tfrpsc Cpsc$v_rel] i TRANSFER ADDRESS IS NOT : 
; en ‘ 
: 2169 2647 4 signal (Lin$_ apscnar. @ ! THEN ISSUE AN ERR er MESSAGE | : 
; 19 9k 2 obmodesc Comd$b “namlng), ink$gl_ curfil Cfdb$q_filename]); | ‘ 
; 17@ 2650 4 modpscontriblk = .psctmap Cpmt$l_modcon]; : 
3 te soa) ? tfradr = (if .wordpsecteom then seomrec Feomu$t tfradr] els else o geares Ceom$l_tfradr]) + | : 
: 2175 seas 4 -modpscontriblk Cmpc$l_offset]; ADDRESS RELATIVE 10 Wie WieLe P-SECT | ‘ 
$179 eee 3 Rfraneh # £25. <quevpeetooms. Seee. tq “regina CAG POR WERENESS: OF TRANSFER ADDRESS | ; 
; $10 $026 2 -eomrec Ceomw$v_wktfrJ) else ((.reclng eql eom$c_eommax) and .eomrec Ceom$v_wktfrJ)); : 
; $180 $o28 ? if not .lnk$gl_curfil Cfdb$v -debuger aces ube tentite tat seen | ‘ 
3 $188 sey : and Sf. inks l at frosc eat . ei AN NO PREVIOUS TRANSFER ADDRESS WAS SPECIFIED ‘ 
; or (.weaktfradr and not .tfrwea : 
: sige 3662 2 * ! OR IT WAS A WEAK TRANSFER ADDRESS AND THIS ONE IS NOT | ‘ 
; en : 
: $186 2664 5 begin : 
; 2187 2665 5 : 
; Sigs seee 2 if Fi zinkSol of task CinkSv, ipetdents? Sn ia IF SBAGE ID NOT MANUALLY SET ‘ 
; m e ' ; 
; bs 2668 3 hed or mtnesgl dls. eqt 0) ! OR IDENT WAS FROM MODULE W/O TRANSFER ADDRESS : 
: en : 
; 4 3670 2 ch$move (. ; image idgrcing CO) + 1, penne eateie C0), ! THEN MOVE IN THE ONE OF . 
: 1a7 $00) 2 Lnk$gt_imgid ! THIS MODULE AS SAVED ON MHD RECORD ‘ 
: 2195 2673 5 Lnk$gl_tfrpsc = .tfrpsc; ' THEN THIS IS THE USER'S : 
: 2196 sore 5 ink$gl-tfradr = .tfradr; ! TRANSFER ADDRESS ‘ 
§ p44 o7? : uous ffadr = .tfrweak; ! REMEMBER IF THIS WAS WEAK OR STRONG TRANSFER ADDRESS : 
; en ; 
3 2199 677 4 else | : 
: 2200 678 4 : ; 
; 2201 679 4 if .lnk$gl_curfil Cfdb$v_debuger) : 
; 4 680 4 ! OTHERWISE IF THIS IS THE DEBUGGER FILE AND THERE HAS NOT : 
3 b7 1 ? . and .ink$gl_dbgtfps eql 0 ! PREVIOUSLY BEEN A DEBUGGER TRANSFER : 
3 en ; 
; 2205 683 5 begin ! ADDRESS, MAKE THIS THE | : 

| 

| | 


e 
ch$move (.imageidstring (0) + 1, Inage i¢e r 

! THEN SET THIS 

ink$gt_imgid (0J); : 


objdescsize = obmodesc Comd$t_pscmap] - obmodesc + ! COMPUTE SIZE OF OBJ MOD DESC TO ALLOCATE 

pmt$c_size*((if not pamneeets omd$v_p256] 
then .obmodesc Comd$w_hipsct] + 1 
else (.obmodesc Comd$w_hipsct] + 256)/256)); 

ink$alloblk (.objdescsize, objdesc); ' A 

Lastobjmod Comd$l_nxtomd] = .objdesc; ' LINK INTO THE LIST 

lastobjmod = .objdesc; ! AND NEW BECOMES THE LAST THEN 

ch$move (.objdescsize, obmodesc, .objdesc); ! COPY THE DESCRIPTOR OUT 

LibSinsert_ tree (lnk$gl_omdtree, .objdesc Comd$l_omdnum], INSERT OMD INTO OMD TREE 

_ Rref (0) ae omd, alloc_omdnode , omdnode, .objdesc); 
objdesc Comd$l_nxtomd] = 0; f 2£RO LINK IN THE DESCRIPTOR 


if .obmodesc Comd$l_lsterr] eql obmodesc Comd$l_errtxt] ! CHECK FOR NO ERRORS 
en 
objdesc Comd$l_lsterr] = objdesc Comd$l_errtxt); 


t ai C0), 
sera Ry THE IDENT (WILL GET OVERWRITTEN IF XFR ADR 


} 
i | 
| 1 
| LNK_OBJPASS1 1-se -1984 00:12: AX=-11 Bliss-32 V4.0-74 Page 76 
$Oa=000 1e-8ep-19 4 90718338 UL INKER-SRe LNKOBJPS1.832;1 . (20) | 
684 ink$gl_dbgtfps = .tfrpsc; ' DEBUGGER TRANSFER ADDRESS 
685 ink$gl_dbgtfr = .tfradr; ! 
6 § end : 
0 6 else 
1 688 
, 28? ; if not .tfrweak 
1 691 ! THERE WAS A MULTIPLE TRANSFER ADDRESS AND THE TRANSFER ADDRESS FLAG 
1 $36 ! BYTE WAS NOT PRESENT, OR WAS PRESENT AND THE WEAK TRANSFER ADDRESS 
1 69 ' FLAG WAS NOT ON. 
1 694 : 
1 695 then 
signa n$_multfr, 2, obmodesc Comd$b_namlng], Lnk$gl_cur q_filename)); 
; 238 ignal (Lin$S_multfr, 2, obmod Comd$b ing], lnk$gl fil Cfdb$q_fi ] 
698 end; 
2699 
end; ! END OF TRANSFER ADDRESS PROCESSING 
§ 7 .lnk$gt_imgid [0] eql 0 ! IF NO IMAGE IDENT YET 
n 
2 
2 
2 
3 
3 
3 
3 
3 


4 THIS OBJ MOD, THEN ADD COUNT OF PSECTS IN DEBUG OBJ MODS. 


R-OBJ-MOD PSECT COUNT, AND DEBUG FLAG. 


LLOCATE THE DESCRIPTOR 
, 
HEN RESET P | 


' 
IF a RECORDS 
i 


APINPIPONIPIPININININD 2 3 OO OO SS SS OOOOOCOCOCOO 


COONAN WN 0 OONOA UE WIN -2 O ODNO UNE WN" O OONAUE WN O 


if .omd_has_dbg 
then 


begin | 
Ln Sow_pscdst = .lnk$gw_pscdst + .obmodesc Comd$w_hipsct] + 1; 
omd_has_dbg = false; 


ied 


end; 


! FILL IN THE FIELD MPCSL_OWNOMD FOR ALL PSECTS DEFINED IN THIS MODULE 
"  curcontriblk = .obmodesc Comd$l_nxtomd); ! GET LIST POINTER OF PSECT CONTRIBUTION BLOCKS 


RPP DPIPIPIPINIAIPIPIPPINDPININYNINYAINIPYNDINIPINININIDYD & SPPINIPIPIPINININUWA ES FELL LLLP 


Se fee tee Bia ie Btn tn Be ii Si Bi Btn it Si Dn St Dt De te i St Bi Be Bee Be te tt tt te i te 


RIPIPPPIPIPDPONIPININIPPPINIPUONININPIPYNININININIPIPNPINONYNIPUNINPINONYNINYNIAYD 


= 


Pe Oe Re Oe Oe Oe we we Oe Oe OH Oe Oe Oe OH Oe Oe ee SHS OH Oe Oe Oe Be es ee 


- a 


LNK PASS1 
v04 =$88 


: 2263 741 

: 2266 tg 

ee 

; 83 785 

>; 2268 ree 

: 9 74 

3 0 748 

3 71 749 

3; 2e7 750 

3 7 751 

: 74 fe 1 
51 0B AO 
53 EC Ag 

OB ad 01 


1bese 
-Seo-1 
14°$ opt 


AX-11 Bliss-32 V4.0-74 
LINKER. SRCJLNKOBJPS1.B52;1 


9B 12:45:38 


while -curcentriblk neq 0 do 

egin 

nextcontriblk, 2 2 1 pannel Lk Cmp $l_ownomd]; ' GET LINK TO NEXT 
curcontriblk Empc L_ownomd 4 desc; | SET OWNER POINTER 
curcontriblk ~nextcontriblk; 


end; 


ch$fill (0. aSte(sterrd = obmodesc) ! ZERO THE PROTOTYPE DESCRIPTOR 
obmodesc Comd$l_lsterr] = obmodesc tomdst _errtxt 

maxreclng = obj$ RESET TO MAX ALLOWED BY LANGUAGE 
return true; 


. _maxrecsiz; 


end; | END OF EOM PROCESSING 
OFFC 00000 PROEOM: .WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 
5B 000000006 00 9€E 00002 MOVAB LNKS$GL ~CuRFIL: Ri 
5a 00000000' EF 9E 00009 MOVAB LNKS$GL-TFRPSC. R10 
59 00000000" Ff 3 90010 HOVAB OBMODESC+40, R9 
- Me be 88 Ooore ROVE = OBIVEC, R2 
05 13 90020 BEQL ~=sésd1$ 
0% 08 43 99035 ie 
FO4C CF 00 FB 00027 1$ CALLS #0, SEQCHK 
” ozo §% goose oO ge 
50 6B 00 ita 2 2$: MOVL Lake, _CURFIL, RO 
01 02 EF 00035 EXTZV #2, #1, 11(ROS, RI 
01 01 EF 00038 EXTZV #1. #1. OBMODESC+20, R3 
51 53 88 00041 BISB2 -R3. RI 
02 31 FO 00044 INSV R1. #2, #1, 11(RO) 
oe Rea Fe 
4 D6 00051 INCL = R17 
55 51 B0 00053 3$: MOVL -R1, WORDPSECTEOM 
51 AG Ad = 3C 00056 MOVZWL RECLNG, R1 
OF 55 £9 O005A BLBC  WORDPSECTEOM, 4$ 
. A a 
08 SI at Goose = Ehew,T, 
: A a 
2 Ue ge a 
07 51 Bi $094 CMPW RT, #7 
05 1F 00074 BLSSU 6$ 
08 51 B1 00076 CMPW RT, «#8 
11 1B 0078 53 BLEQU 7$ 
14 AO 9F 0007B 6$ PUSHAB 20(RO) 
0202 8F BB 0007 PUSHR #*M<R1,R9> 
03 DD 0008 PUSHL #3 


2513 


SaaS PET 


kK 1 
16-Sep-1984 00:12: AX-11 Bliss-32 V4.0-74 Page 78 
1ereee= TBs 99:28 :8s | Hate Res Lacod seo S251 . = 
000000006 6 pp 0 , PUSHL #LINS_ILLRECLEN : 
53 01 A2 7 7$ NOV ZBL 1(R2), COMCODE : 2573| 
03 53 D7 009 CMPL OMCODE, #3 + 2577 
13 1B 0009 BLEG ; 
68 14 C1 0009 ADDL3 #20, LNKSGL_CURFIL, -(SP) + 2582 
0208 8F 6B 0098 PUSHR #*M<R3,R9> : 
03 DD O009F PUSHL : 
000000006 _ 8F pp 00A1 PUSHL #LINS_BADCCC : 
0006 31 OO0A7 8$: BRW : 
68 14 C1 OOOAA 9S: ADDL3 #20, LNKSGL_CURFIL, RO : 3591 
01 53 OCF OOAE CASEL COMCODE, #1. #2 + 2586 
0018 0006 000B2 10$ <WORD 11$-10$.- ; 
a's e 
13$-10$ ; 
50 DD 00088 11$ PUSHL RO + 2591 
59 DD OOOBA PUSHL 9 F 
02 oD 000BC PUSHL #2 F 
000000006 8F DD O0OBE PUSHL #LINS_WRNERS ; 
000000006 00 04 FB 000C4 CALLS #4, LIBSSIGNAL 3 
42 11 000CB BRB 14$ : 
00000006 8F DD O00CD 12$:  PUSHL #LINS_NOIMGFIL + 2595 
50 DD 000D3 PUSHL RO : 
59 DD 00005 PUSHL 9 : 
02 DD 00007 PUSHL #2 : 
000000006 8F DD 00009 PUSHL #LINS$_ERRORS : 
000000006 00 05 FB OOODF CALLS #5, LYBS$SIGNAL : 
000000006 00 01 8A O00E6 BICB2 #1, LNKSGL_CTLMSK : 2597 
20 11 OOOED BRB 14$ : 2586 
50 DD OOOEF 13$: | PUSHL RO : 2602 
59 DD O00F1 PUSHL R9 : 
02 DD 000F3 PUSHL #2 : 
000000006 8F DD 000FS PUSHL #LINS_EOMFTL : 
000000006 00 04 FB 000FB CALLS #4, LIBSSIGNAL : 
000000006 BF DdD 00102 PUSHL #LINS$ FATALERROR > 2603 
000000006 00 01 FB 00108 CALLS #1, LAKSEXIT : 
FFFF BF EA AS Bi OO10F 14%:  CMPW OBMODESC+18, #65535 + 2609 
1F 12 00115 BNEQ F 
18 Ec Ad €9 00117 BLBC OBMODESC+20, 15$ + 2610 
000000006 8F DD 0011B PUSH aL INS FORMA + 2614 
6B 14 C1 001 1 ADDL3 #20, CNKSGL_CURFIL, -(SP) : 
59 DD 00125 PUSHL 9 : 3613 
02 DD 1 ? PUSHL #2 : 2614 
000000006 8F DD 00129 PUSHL #LINS NOPSCTS : 
000000006 00 05 FB O12F CALLS #5, LIBS$STOP : 
06 5 €9 00136 15$:  BLBC WORDPSECTEOM, 16$ > 2616 
08 AG =6A9 «BI 00139 CMPW  =sRECLNNG, # : 
04 11 60130 BRB : 
07 AG AD 81 0135 168: CMPW =a RECLNG, #7 : 
03 F O143 17$:  BGEQU§ 18$ : 
0111 31 0014 BRW 38$ ; 
06 55 5 148 18%: BLBC WORDPSECTEOM, 19$ : 3621 
02 A2 3c 00148 MOVZWL 2(R2), PSCTNUM > 2622 
53 o2 3 9a 00181 198:  BevzeL SeR2), PSCTNUM ; 
10 06 ED b183 20$:  CMPZV. #0, #16, OBMODESC+18, PSCTNUM > 2624 


--—- — 


| 1 
| LNK_OBJPASS1 1Se -1984 00:12: AX-11 Bliss-32 V4.0-74 Page 79. 
Woe2000 exe e87 1882 9318:38 «| Hiker sResincon ses) 6$2:1 9° 20) | 
13 1f 00158 BLSsu 218 ; | 
| OF EC Ay EB 0015D BLBS  OBMODESC+20, 21$ : | 
| DD 0016 PUSHL  PSCTNUM + 2634. 
FIDG =F 1 FB 0016 CALLS #1, FNDPSCMAPENT : 
: 4 0 pO 0016 MOVL RO : | 
4 64 DO 00168 MOVL (PSCTMAP), TFRPSC + 2636) 
1A 1 16k BNE : | 
7E 68 14 C1 00170 21$:  ADDL3 #20, GNKSGL_CURFIL, -(SP) + 2640) 
0208 8F 8B 00174 PUSHR § #*M<R5,R9> ; | 
3 DD 00178 PUSHL : 
000000006 8F DD 0017A PUSHL HL INS BADPSC : 
000000006 00 £ Fe 189 22$: CALLS #5, LIBS$SIGNAL : 
0198 31 001 BRU GG$ : 2641 
05 OA Ab 06 E1 0018A 23%: BBC us, 10(TFRPSC), 248 + 2644 
| 15 OA 6 EO 0018F BBS #3. 10(TERPSC), 25$ : 2645, 
7€ 65 14 C1 00194 24$:  ADDL3 #26, LNKSGL_CURFIL, -(SP) > 2648 
| 59 Do 90198 PUSHL 9 : 
| 02 0D 0019A PUSHL #2 : 
000000006 8F DD 9919¢ PUSHL #LINS_PSCNXR : 
000000006 00 04 FB OO1A2 CALLS #4, LYIBSSIGNAL : 
50 04 AS DO OO1A9 25$:  MOVL 4(PSCTMAP), MODPSCONTRIBLK : 2650 
06 55 €9 OO1AD BLBC §§ WORDPSECTEOM, 26$ : 2651 
51 04 A2 DO 00180 MOVL  4(R2), RI : 
04 11 00184 BRB : 
51 03 A2 DO 001B6 26$:  MOVL (R2), R1 : 
58 51 08 A0 C1 OO1BA 27$:  ADDL3 B&B (MODPSCONTRIBLK), R1, TFRADR + 2653 
12 55 €9 001BF BLBC § WORDPSECTEOM, 29$ > 2654 
50 D4 001C2 CLRL = RO F 
09 AG Ad B1 001C4 CMPW RECLNG, “9 : 
02 12 001¢8 BNEQ 28$ : 
50 D6 OOICA INCL RO : 
57 08 A2 01 00 EF OO1CC 28%:  EXTZV #0, #1, 8(R2), TFRWEAK + 2656 
10 11 001D2 BRB 31§ ; 
50 D4 00104 298 CLRL = RO : 
08 AG OAD BI 00106 CMP RECLNG, #8 : 
02 12 001DA BNEQ  30$ : 
50 D6 0010¢ INCL ; 
57 07 a2 or 00 EF OO1DE 308: EXTZ2V #0, #1, 7(R2), TFRWEAK : 
7 57 D2 OO1E4 31$:  MCOML TFRWEAK, TFRWEAK : 
57 50 57 CB OO1E7 BICL FRWEAK, RO, TFRWEAK : 
50 6B DO OO1EB MOVL LNKSGL Curr i RO : 2658 
40 OA AO 05 £0 OOIEE BBS #5, 10TRO), 36$ ; 
6A D5 OO1F TSTL NKSGL_TFRPSC ; 2660 
07 1 Oo1FS BEQL : 
33 94 Ad £9 OO1F BLBC § WEAKTFRADR, 35$ : 2661 
30 57 €8 OO1FB BLBS TFRWEAK, 35$ : 
18 000000006 00 6 f O1FE 32$: BBS #6, LNKSGL_CTLMSK+3, 34$ > 2666 
000000006 00 0206 TSTB NKSGT_IMGID : 2667 
4 1 C BEQL : 
| 6A 5 0020 TSTL —_LNKSGL_TFRPSC ; 2668 | 
OF 1 021 BNEQ 5 
| 50 B8 Ad 9A 00 33$: HOV ZBL IMAGEIDSTRING, RO ; 2670 | 
000000006 00 B8 Ag 35 b : 18 MOVC3 RO, IMAGEIDSTRING, LNKSGT_IMGID ; 367] 
6A 26 D 0 1 34$:  MOVL  TFAPSC, LNKSGL_TFRPSC > 2673 
| FC AA ; p 4 MOVL  TFRADR, LNKSGL~TFRADR > 2674 
| 94 Ad 7 90 00228 MOVB TFRWEAK, WEAKTFRADR : 2675 


———_______—- NS ee 


m1 
LNK_OBJPASS1 16-Sep-1984 00:12: AX-11 Bliss-32 V4.0-74 Page 80. 
“W06=000 19-808= 1382 90:18:38 LINKER. SRCJLNKOBJPS1.B32;1 . (20) | 
| 11 C BRB 38$ : 2658 ; 
OF 0A AO 88 £1 ; 358: BBC hs 10(RO), 37$ : $38 | ; 
Fa A OD 6s: st NKSGL_DBGTFPS : 681, ; 
FB OA ; D 5 MOVL §_TFRPSC, LNKSGL_DBGTFPS ; 3684 ; 
FG OA D MOVL § TFRADR, LNKSGL-DBGTFR + 2685 ; 
17 11 0024 BRB 38$ + 2679 ; 
14 57 gs 42 37$ BLBS TERWEAK, 38$ : 3689 | ; 
| 14 Ag F 0924 PUSHAB 20(RO) + 2696. F 
59 DD 00248 PUSHL R9 : | ; 
2 DD 0024A PUSHL #2 : | ; 
000000006 8F DD 0 4 PUSHL #LINS_MULTFR : ; 
000000006 00 4 Fe 5 CALLS #4, LIBSSIGNAL : : 
000000006 90 3 00 35 38$: iste NKSGT_IMGID : 2702 
50 B8 AD 9A 80 61 MOVZBL IMAGEIDSTRING, RO + 2704 
50 06 00265 INCL. RO ; 
000000006 00 BB Ad 50 28 00 67 MOVC3 RO, IMAGEIDSTRING, LNKSGT_IMGID + 2706 
08 EC Ag 06 £0 00 9 39$: BBS #6, ORMODESC+20, 40$ : 2709 
56 EA Ad 3C 0027 MOVZWL OBMODESC+18, R6 : 2710 
| 56 D6 00279 INCL  R6 : 
10 11 00278 BRB 41$ : 
56 EA AQ 3C 0027D 40$: MOVZWL OBMODESC+18, R6 + 2711 
| 56 0100 C6 9€ 00281 MOVAB 256(R6), R6 ; 
| 56 00000100 i C6 00286 DIVL 4256, R6 : 
| 56 8 C4 0028D 41$:  MULL2 #8, OBJDESCSIZE : 2708 
56 48 Ab 9E 00290 MOVAB 72(R6), OBJDESCSIZE : 
04 AE 9F 00294 PUSHAB OBJDESC : 2712 
| 56 DD 00297 FUSHL  OBJDESCSIZE ; | 
000000006 00 02 FB 00299 CALLS #2, LNKSALLOBLK : 
| 57 04 AE DO 002A0 MOVL  OBJDESC, R : 2713 | 
90 89 57 DO 002A4 MOVL 7, @LASTOBJMOD ; 
90 Ad 57 DO 00248 MOVL_ 7, LASTOBJMOD + 2714 : 
67 D8 a9 56 (28 O02AC MOVC3 OBJDESCSIZE. OBMODESC, (R7) + 2715 
57 0D 00 B1 PUSHL R : 2717 
Oc AE 9F 00283 PUSHAB OMDNODE : 2716 
F135 CF OF 002B6 PUSHAB ALLOC_OMDNODE : 
F151 CF OOF OOcBA PUSHAB LNKS COMPARE _OMD : 
10 AE D4 002BE LRL 6(SP) : 2717 
| 10 AE 9F 002C1 PUSHAB 16(SP) : 
1¢ A? DD 0024 PUSHL  28(R7) : 2716 
| 08 AA 9F 002C7 PUSHAB LNK$GL_OMDTREE F 
000000006 00 07 FB OO2CA CALLS 47, LIBSINSERT_TREE : 
67 p4 0201 CLAL (R?) ; 3718 
50 FB AD JE 00203 MOVAB OBMODESC +32. RO : 2720 
50 FC AQ OD 00 07 CMPL MODESC +36. RO : 
05 12 00208 BNEQ 42$ F 
| 24 «OAT 20 A? 9 02D MOVAB 32(R7), 36(R7) : 2722 
| 13 C Ag O2E2 42$:  BLBC  OMD_HAS_DBG, 43$ : 129 
| 50 DD «AA 3C O02E MOVZWL LNKSGW PSCDST, RO : 2732 
51 EA AQ 3C OOCEA MOVZ2WL OBMODESC+18, R1 F 
| 50 51 CO OOEE ADDL2 R11, : 
| DO AA 50 01 Al 002F1 ADD #1. RO, LNKSGW_PSCDST : 
| BC AD 94 OOZES CL OM _HAS _DB : 3733 
50 D8 Ag 09 O2F9 43$: MOVL OBMODESC, CURCONTRIBLK : 2739 
OD 13 OO2FD 44$: BEAL : rai 
51 04 AO dO OO2FF MOVL 4 (CURCONTRIBLK), NEXTCONTRIBLK + 2743 


56 


; Routine Size: 


805 bytes, 


04 


00 


50 


6E 


Ag 
Ag 
50 


Routine Base: 


S 
F 
080 


SCODES + 126E 


oO 


N 1 
16-Sep-1984 00:12: AX-11 Bliss-32 V4.0-74 
12788-1982 90:18:38 LINKER. SRCILNKOBJPS 1 .B 2:1 
3 MOVL _R7, 4(CURCONTRIBLK) 

i OVL NEXTCONTRIBLK, CURCONTRIBLK 
45$ MOVCS #0, (SP), #0, OBJDESCSIZE, OBMODESC 

1 MOVAB OBMODESC+32, OBMODESC+36 

1 MOVW 490s MAXRECLNG 

IF MOVL , RO 

RET 
2 46$ CLRL = RO 
4 RET 


: 
gi. eee | 
1B-Sep-1984 00:12:55 YAKGII BLing-32 v4.06742, i 


001C 00000 COUNTDBG: 


; f 4 ; 1 routine countdbg = : 
Ps n ° 
3: 2e7 755 ! : 
: dev 7 : i ROUTINE 10 COUNT THE NUMBER OF DEBUG (TYPES 4 AND 5) RECORDS SEEN AND TO : 
; 2280 7 i TOTAL THE NUMBER OF BYTES CONTAINED FOR USE AS AN ESTIMATE OF THE ; 
: 2281 758 i SIZE OF bEBUG SYMBOL TABLE RITTEN AT END OF BINARY ; 
; a 759 ' IF THE DEBUGGER IS LINKED IN. ALSO IF AN EXECUTABLE IMAGE : 
3 208 760 i WITH THE DEBUGGER IS BEING PRODUCED, TURN OFF THE NO BINARY FLAG FOR ; 
8 761 ! THIS MODULE (PROVIDED IT IS NOT THE DEBUGGER ITSELF). : 
: 2286 be : 
3 a 764 if not seqchk () ! CHECK LEGAL SEQUENCE : 
; 8 765 then PF 
: 34 o return false; : 
: 91 768 if -obmodesc CondSv_debuger] ' IF THIS IS THE DEBUGER ITSELF | ; 
Py en Ps 
: 298 3770 ; return true; ' IGNORE ANY DEBUG RECORDS | ‘ 
: 2295 sire y not .omd_has_dbg and .ink$gl_ctlmsk Cink$v mi: ! IF DBG REC FLAG IS CLEAR AND THE | ; 
3 2296 277 then DEBUGGER IS BEING INCLUDED | : 
3 2297 2774 be in THE IMAGE, : 
; 2298 e775 has 5ihg = true; ! THEN SET FLAG N ; 
: 344 sire Unk Sgt Omddst = . Lnk$gl_omddst * 1; i ADD TO COUNT OF DBG ‘OBJ MODS : 
; 230 2778 : : 
: 2302 e779 2 Lnk$gl_dbgestim = .lnk$gl_dbgestim + .recin ! D IN THE LENGTH OF THIS RECORD ; 
sit 2780 inkSgu-dbgrecs = .inkSgu-dbgrecs © 1:7. 8f AND COUNT THE RECORD 
: 2305 278 if .LnkSglctimsk ClnkSv.dbgi ' IF IT CONTAINS THE DEBUGGER IT NOW HAS | : 
3 sane 27s § eat nk$gl_ctlmsk ClakSy. trace] ! : 
Py en e 
: ty $i? 2 obmodesc Comd$v_nobin] = false; ! BINARY WE CARE ABOUT | : 
; 2310 2787 § return true; ' AND THAT IS ALL : 
3 2311 2788 1 end; ; 
| 

‘ 

| 

4 00000000" EF 9€ HOVAB at at rete R4 Fadia ; 

34 $O9009006 ti 9E Mitt MOVAB LNKS$GL~CTLMSK, R3 : | 

52 00000000' EF 9E 90010 MOVAB OBMODES +20, R ; 

ED37—sCF 9 FB 0001 CALLS #0, SEQCHK : 2764 | 

2D E9 0001C BLBC RO. : 

25 62 05 £0 OO01F BBS OBMODESC+20, 3$ : 2768 | 
OA AO A2 €8 00 3 BLBS § OMD_HAS_DBG : 2772 | 

06 63 06 Fi 0 BBC , LNKSGL_CTLMSK, 1$ ; | 
AO A2 1 90 99 B MOVB , OMD_HAS : 2775 | 

64 p6 O02F INCL LNKSGL_OMDDST : 2776 | 

50 B8 Ag C 00031 1$ MOVZWL R NG; RO : 2779 | 

38 AG 50 CO 00035 ADDL2 LNKSGL DBGESTIM : 

40 AG 88 0 .) INCW PNKSee BGRECS s 2780 | 

05 63 06 £0 0003C BBS fo. ONR eee _CTLMSK, 2$ ; 2782 | 
| 


LN _OBAPASS 1$-Se0-1986 00:12:36 YAR-11 Bliss? ys.0-742, Page 83 
03 02 A 1 4 BBC # LNK$GL_CT ponte. 3$ 3; 2783 
3 U2 HA GB05 as: Bite 48. banovests : 3s 
04 00048 RET 5 
50 04 0004C 4$: CLRL RO ; 2788 
04 0004E RET 3 


; Routine Size: 79 bytes, Routine Base: S$CODE$ + 1593 


: : 2 | 
LE -RBAPASS! if: seon19ee 2 99:28:38 «= EMier*ScSineobses1 .692;1 Pane 5} 


; 2313 789 1 routine compare_idc (entityname, node, idcrec) = 

3 13 £3 begin 
: 6 29 i COMPARE AN ENTITY NAME WITH THE CURRENT NODE 

: 2318 794 2 | 
: 19 795 map | 
; 2520 79 entityname : ref — rel bytel, 
: 2321 79 node : ref black  . 
; 356 oS idcrec : ref block (° Erte 
5 2324 800 return ch$compare (.entityname [0], entityname [1], .node Cidcd$b_naming], node Cidcd$t_name], 0) 

; 2325 2801 1 end; 


001C 00000 COMPARE _IDC: 
WORD 


‘ Save R2,R3,R4 : 2789 

52 04 AC DO 00002 MOVL  ENTITYNAME. R2 : 2800 
53 62 9A 00006 MOVZBL (R2), R3 ; 
50 08 AC DO 00009 MOVL NODE. RO : 

51 1E 9A 0000D MOVZBL 30(RO), R1 : 
54 01 DO 00011 MOVL #1, R : 
51 00 01 A2 53 2D 00014 CMPCS R3. 1(R2), #0, R1, 31(RO) : 
1F AO 0001A : 
03 1A 0001C BGTRU 1$ : 
54 01 D9 OOO1E SB #1, RG F 
50 54 00 bps. 1$: MOVL R4, RO : 

04 00024 RET : 2801 


; Routine Size: 37 bytes, Routine Base: $CODE$S + 15E2 


NK peareest 16- seo-1984 99: 1é! 39 AX=-11 Bliss-32 V4.0-74 Page 85 


a 
o 
~ 


ptr = ch$move ( bjectname” 63° es ubidetuene OJ], .ptr); ! MOVE Inn THE OBJECT NAME 
st -newnode Cidcd$v_binident) ' JF BINARY IDENT, SET IN THE IDENT 

hen 

' newnode Cidcd$l_ident] = .binaryident 

se 


be 
othe Cidcd$l_ident] = 


SENSIS 
WOON UE WN OOM 


PoNPoNononofonononononofonsforony 


04=00 14-Sep-1984 LINKER. SRCJLNKOBJPS1.B32;1 
; f BOG 1 sienag om? etter. idc (entityname, retnodeadr, idcrec) = ; 
: 2329 04 2! ; 
; , is alte AND FILL IN A NEW IDCD BLOCK ‘ 
; 80 ; 
; 23 ‘ $508 © aenvitynene : ref vector z byte], ! POINTS TO ASCIC NAME : 
; Seize 809 retnodeadr : ref vector C, long], . 
H $32 519 re : ref block C, byte; ! THE IDC GSD SUB-RECORD ‘ 
: $339 solg W sentetring © idcrec Cidc$b_naming] + 1 + .idcrec Cidc$b "RECORD | vector C, byte], ‘ 
: 2338 81 DENT STRING IR REC | : 
; 9 814 binaryident = identstring [1], ! ADDR_OF BIN tag ‘ 
H Stes sei? objectname = identstring (1) : -identstring [0] : seater Es ! ADDR OF OBJECT NAME STRING. : 
; 2342 2817 2 ae : 
; 234 2818 | : 
3 2344 2819 Vasize, ‘ 
3 2345 2820 newnode : ref biock C, bytel; ‘ 
; 2346 2821 2 : 
3 2347 sose 2! 
: S3e8 282 § i COMPUTE SIZE OF IDENT STRING 
3 2349 2824 i 
; 2350 2825 2 idsize = 0; 
: 2351 2826 2 ; R 
; $526 2827 2 if not .idcrec Cidc$v_binident] then idsize = .identstring [0] + 1; 
; 235 2828 § 
3 2354 $oee ! 
3; 2355 2830 2 ' ALLOCATE A NEW IDCD BLOCK 
; 2356 2831 2! 
3; 2357 44 2 ink$alloblk (idcd$c_size + .entityname [0] + .idsize + per ec inane C0] + 1, newnode); 
; 2358 283 § '¢1 FOR SIZE OF OBJECTNAME IN ASCIC STRING 
3 2359 2834 newnode Cidcd$w_flags] = .idcrec Cidc$w_flags]; ' COPY FLAGS FROM IDC SUBRECORD 
; 2360 2835 2 newnode Cidcd$\-defomd] = .\nk$gw_nmodules; ! SET DEFINING MODULE NUMBER 
; 2361 2836 2 newnode Cidcd$l_deffdb] = .lnk$gl-curfil; DEFINING FILE FDB ADDRESS 
3 2362 2837 2 newnode Lidcd$b_iding] = .identstring (0); LENGTH OF IDENT STRING 
; 23635 2838 2 newnode Cidcd$b-objlng] = .objectname (0); LENS NGTH ‘4 OBJECT NAME STRING 
3 2364 2839 2 newnode Cidcd$b_naming) = .idcrec Ligesb “hamingit NTITY NAME LENGTH 
; 2365 2840 § ptr = chine e (cidcrec Cidc$b_naming), at THE ENTITY NAME 
3 2366 2841 ide tees naming] + Ve _Newnode Cidcd$t name 
¥y- oeeg 2 
: 2843 2 
; 2844 
: $B02 
; 846 
; 2847 
; 2848 
; 2849 
: 850 te : ASE cICc etl f SET POINTER TO IDENT STRING 

$ $3! casaove (,identString c01"s » identstring (OJ, .ptr); ! AND COPY IN THE IDENT 

: end; 

; 2858 3 

: 380 B35 3 | RETURN NODE ADDRESS TO CALLER 

3 $58 Bap retnodeadr [0] = .newnode; 

; 238 858 return true 
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148 bytes, Routine Base: S$CODE$ + 1607 


; Routine Size: 
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2 
LMk -OBAPASSI 1$-sep-19 4 90:15:98 AX-11 Bliss-32 V4.0- 


7% 87. 

14-Sep-1984 LINKER. SRCJLNKOBJPS1.B32;1 4) 
90 
91 


Page 
g 2 | 
1 routine randentity = 
begin 
M | 
} THIS ROUTINE PROCESSES THE IDC GSD RECORD. 


local 
status, 


oo 
FORO oe 


H 0 ; 
3 ‘ 
; 4 : 
; 5 : 
; ; Length, | ; 
3; 2596 508 defomd : ref block f. byte}. ! DEFINING OMD ADDRESS ° 
; 2395 : deffdb : ref block C, byte ° ' DEFINING FDB ADDRESS ° 
; 38 0 identstring : ref vector C, byte). ' POINTER TO IDENT STRING ‘ 
: 239 71 objectname : ref wpetor C, byte], ! POINTER TO OBJECT NAME STRING ‘ 
: 398 876 entry : ref block C, byted; i ADDRESS OF ENTRY : 
; 2400 874 bind : 
3 reid Bre idcrec = objvec C.gsdoffset] : block C, byte]; ! POINT TO THE IDC SUBRECORD ; 
: 240 87 : 
3: 2404 878 ! CHECK THE LENGTH OF ALL THE NAME STRINGS : 
: 2405 879 : : 
; 2406 880 ' ; 
: 2407 881 2 | THE ENTITY NAME : 
3; 2408 eee : : 
; 2409 88 ‘ ‘ 
3; 2410 seae if .idcrec Cidc$b_naming] eql 0 or .idcrec Cidc$b_naming] gtru sym$c_maxing : 
: sei] 885 then ; 
5 tig Hy, begin ‘ 
3: 241 88 signal (Lin$S_illnamelen, 6, Unk Sgt entity. idcrec Cidc$b_naming], .idcrec Cidc$b_naming3, ; 
3 24146 888 sym$c_maxlng, obmodesc Comd$b_naming], (nk$gl_curfil Cfdb$q_filenameJ); : 
3 2415 889 return false : 
i 2416 890 end; ‘ 
: 2417 891 ; 
3; 2418 89 : . 
3 24619 89 ' THE IDENT STRING : 
; 2420 894 : . 
3 263 $832 identstring = idcrec Cidc$b_naming] + 1 + .idcrec Cidc$b_naming); : 
3: 26 6 897 if .identstring (0) eql 0 or .identstring CO] gtru sym$c_maxing : 
: 2426 898 then : 
> 2425 899 begin , F 
: 2426 2900 signal (Lin$S_illnamelen, 6, (nk$gt_ident ipeatetriog C0], _.identstring CO), sym$c_maxing, : 
s 2427 901 obmodesc~Lomd$b_nam(ngi, ink$gl_curfil Cfdb$q_filename)); : 
3; 2428 O06 return false : 
3; 2429 38 end; : 
3 24 904 : 
3: 2431 905 ' . 
3: 24 § 208 ! AND THE OBJECT NAME | ‘ 
: 243 90 ; : ° 
3 tr! 208 objectname = identstring [1] + .identstring (0); : 
i; 24 910 if .objectname (0) eql 0 or .objectname (0) gtru sym$c_maxlig : 
3: 2437 911 then : 
3 24 318 begin : 
3 2439 91 signal (Lin$_illnamelen, 6, Lnk$gt_objnam pb lectnane (0), .objectname (0), sym$c_maxing, 3 
: 2440 914 obmodesc Comd$b_nam(ngi, ink gt_curtil fdb$q_filename)); : 
3 2461 915 return false : 
3 2442 916 end; ‘ 


H 2 
Woczo00 1e-83b- 1882 93:08:88 | acer SRE scacob ses 69251 Page ft 


| 
| UPDATE GSD OFFSET INTO RECORD | 


length = objectname [1] + od + baa (0) - idcrec; 
gsdoffset = .gsdoffset + . length 


! 
; ENTRY APPEARS GOOD. LET'S ENTER IT 


if (status = LibSinsert_tree (ink$gl_entitree, idcrec Lidc$b_naming], %ref (0), compare_idc, alloc_idc, 
entry, idcrec)) eql Lib$_keyalrins 


Pe 
we 
wr 
OWODODOODDODDODO00000000000 


WAANAWAAAAIPPIDPIPEPOPEPONPINONY 


DWNAOUES WN" OCONOU EWN -O0OO~ 


CHECK BINARY IDENTS 


: 2455 then 

3; 2456 

: 2457 RTRs tookup. tree on agg a | Pa -entry Cidcd$l_defomd], ! FIND DEFINING MODULE OMD 

: 2458 nk$compare_omd 

: 3459 defond = .defond (nodes wetehs ! REALLY POINT TO THE OMD | 
3 ree deffdb = .entry Cidcd$l def fdb); ! GET THE DEFINING FDB 
3: 246 4 if (.iderec Cidc$v_binident] neq .entry Cidcd$v binident]) 

: 246 G IF BOTH ARE NOT THE SAME (ASCIC OR BINARY) 

3; 24646 & or (, s Were Cidc$v_binident OR BINARY IDENT 4H DIFFERENT MATCH CONTROL 

: ne +44 4 and (.idcrec Cidc$¥_idmatch] neq .entry Cidcd$v_idmatch])) 
PY en | 
: 2467 941 signal ((Lin$ pus teneeee sone not sts$m phe gh) or .idcrec Cidc$v_errsevi, 5, 

3 2468 $308 idcrec Ci WacSb gpant ng 

3; 2469 294 ceagdees Comd$b_nam ng] Lnk$gl_ supiit cfasay Hisnenel. defomd Comd$b_naming], 

: 470 $545 deffdb Cfdb$q_fTlename]); 

3: 247 946 if not ch$eql (.objectname [0], objectname [1] ! CHECK THAT OBJECT NAMES THE SAME 

3 ot7 sete sentry Cided$b _objlng], -entry Cidcd$l “objnam) + 1) 

3 2475 2949 signal C(Ling, entidmtcho_ and not sts$m_severity) or .idcrec Cidc$v ere"? ms, sett CO), 

3: 2476 2950 idcrec ? dc$b_naming], obmodesc Comd$b_nam ng. thf curfil Cfdb$q_ tena 
3 sent 32) .entry Cidcd$T_objnam), defomd Comd$b_naming], deffdb Cfdb$q_filename); 

3: 2479 988 if not .entry Cidcd$v_binident] ! NOW CHECK THE IDENT MATCH 

; 2480 954 then 

: 5¢81 955 4 begin | 
: 248 956 4 

3; 248 957 4 if not cnBoat (,identstring [C0], identstring (1], ! cHeCe ASCII IDENTS 

; sine 4 ? i sentry Lided d$b. idling , sentry Lidcd$t_ident] + 1, 0) 

3 en 

3: 246 960 4 signal ((Lin$ ng f0 hig and not greta. severity) or algeres Cidedy afrrsev). 8, objectname (0) 
; 248 961 4 identstrin 0 dcrec Cidc$b_naming], obmodesc Comd$b_naming 
: 26 366 4 int sel ~fur Vit fdb$q_ tijonenel. eentry "Lided$l_ ident], defomd Lomd$b _namingl, 
3; 2489 965 4 deffdb Cfdb$q_filename) | 
3: 2490 964 4 
3: 2491 965 4 end 

3 249 966 3 else 
> 249 96 4 begin | 
: & 

3 4 

s 4 

: & 

: & 


nd 
ident! = identstring C1J : block C, bytel, 


Sos 


NOUR WN SOONER UNO Dee 
ODOOOOOOOOOOOOO 


COCOMWOOOo NNN 


NO MEW O OONOUNS 


=ININIWA ES BEE EPS SELL LLLP LEE EE 


PVP DV PVIUPVSVSVSVSUSV STS SISUSISISIS 


RoroPofonononns 2 2 2 oo 
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ident2 = entry Cidcd$l_ident] : block C, byte); 


ident imajid, 
identiminid, 
ident2majid, 
identédminid; 
identimajid = 
identiminid = .identl 
ident2majid = .ident 
identéminid = .ident 
if .identimajid ne 
or (if .entry 


defomd 


end; 


00 
00000000" 


7E 
00000000° 


[ra 


1F 
7E 000000006 00 


-ident} 


idcd$v_idmatch) eql idc$c_ 
then .ident2minid gtru .identiminid else 


hen 

signal ((Lin$_en 
eprectnany 
obmodes ° 


OFFC 00000 RANDENTITY: 
WORD 


FO WMD VM "WD VVLSODUWv "OO 
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! BLISS GENERATES BETTER CODE THIS WAY 


! MAJOR IDS MUST BE EQUAL 
eq ! COMPARE MINOR IDS BASED ON MATCH CONTROL 
-ident2minid neq .identiminid) 


b and not sts$m_severity) or .idcrec Cidc$v_errsev], 10, 
-identiminid, idcrec —— namin 

ing], Ink$gi_curfil Cfdb$q_filenamel, 

omd$b_namlng], deffdb Cfdb$q_filename]); 


Seve R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11 
GSDOFFSET, R2 


OBI VEC, rd 
(R2), R11 
(R11) 

1$ 

(R11), #31 


2$ 
#20, LNKSGL CURFIL, -(SP) 
C+4 


OBMODES 


(R11), =(SP) 
R11 
LNKSGT_ENTITY 


oz-— 
_" 


) R0 
0)€R2), IDENTSTRING 
ENTSTRING) 


DENTSTRING), #31 


6 
( 
4 
( 
3 
{ 
#20, LNKSGL_CURFIL, -(SP) 


TR RE LD 


» F 
~identonaj id, -ident2minid, 


LNK PASS1 
vOu=000 


7E 000000006 


000000006 


50 


00000000" 


000000006 
000000006 


000000006 
oc 


50 OA 


50 OA 


59 
50 


EF 


00000000" 


00000000' 


00000000' 


00000000' 
000000006 


00000000" 


0 
E 
1 
6 
0 
0 
1 
0 


14 


000000 
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H 88 
9A 8 
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; 78 
1 7A 
91 7¢ 
18 7F 
gt 81 
F 89 
DD 8F 
9A 91 
dD 94 
96 
9 
9E 
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ean 
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5$: 


6$: 


7$: 


8$: 


pa19be 19:46:38 


OBMODESC +40 
(IDENTSTRING), =(SP) 
IDENTSTRING 
NKSGT_IDENT 
(IDENTSTRING), 4(SP) 
#1, 4(SP), RO 

RO 

(OBJECTNAM 
COBJECTNAME) #31 
#20 
hi 
(OBJECTNAME), =(SP) 
OBJEC TNAME 

LNKSGT _OBJNAM 


#LINS_ILLNAMELEN 
“oe LT8$S1GNAL 


(OBJECTNAME), R3 
R3, OBJECTNAME, RO 


LENGTH 
L NGTH, GSDOFFSET 


LNKSGL_ENTITREE 

#7, LIBSINSERT TREE 
BIATUS, #LIBS_REYALRINS 
16$ 

DEF OMD 

LNKSCOMPARE _OMD 

NTRY, R4 

2(R4 

LNKSGL_OMDTREE 

#4, LIBSLOOKUP_TREE 


AX=-11 Bliss-32 V4.0-74 
LINKER. SRC JLNKOBJPS1.B852;1 


IDENTSTRING, OBJEC TNAME 


LNKSGL_CURF IL, -(SP) 
DESC+4 


Page 90. 
9 24) | 


Pe Se Se Se Se Se See Se Se Se Se Ge Ge Se Se Se Se Se Se Ge Se Se Se Ge Ge Ge Se Fe Se Se Se Se Fe Se Se Se Se Se Fe Fe Ge Se Fe Ge Ge Fe Ge Ge Se Ge Se Se Se Se Fe Se 
Nm 
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ey 
16-Sep-1984 00:12: AX-11 Bliss-32 V4.0-74 Page 91. 
1o-808- 1382 90:18:38 LINKER. SRCJLNKOBJPS1.B32;1 . (24) | 
E 10 A 8 C1 001 ADDL3 440, DEFOMD, =(SP) : 2943) 
000000006 O8 “8 g 133 ADDL3 #2 LNKSGL_CURFIL, -(SP) : é 
000¢60000' ff F 0014 PUSHAB OBMODESC +4 ; 
DD 146 PUSHL R11 + 2944 | 
DD 0014 PUSHL a : 
50 A 93 EF OO14A EXTZ #3, #3, (R10), RO : 2941 | 
F 0 00000000" BF C9 O014F BISL3 #<LINS ENTIDMTCHTE-B>, RO, =(SP) : 
000000006 0 7 §B 137 CALLS #7, LIBS$SIGNAL + 2944 
15 Ae 9A 001 5 10$: MOVZBL gina), + 2947 
4 1A AG 00 016 MOVL g(R4) R6 : 
50 00 01 A9 ‘“ 33 D 0166 CMPCS R3, 1(OBJECTNAME), #0, RO, 1(R6) t 2946 
33 13 O16 BEQL 11$ : 
146 AS 99F 001 PUSHAB 20(DEFFDB) + 2951 
7E 10 AE ¢8 C1 0017 ADDL3 #40, DEFOMD, -(SP) : 
6 DD 00178 PUSH RS : 
7E 000000006 00 14 ci 0017A ADDL3 #20 LNKSGL_CURFIL, -(SP) + 2950 
00000000° EF F 00188 PUSHAB OBMODESC+4 : 
O0A0O0 }3=« SF sed C001 PUSHR #*M<R9,R11> : 2951) 
07 DD 0018C¢ PUSHL #7 : 
50 6A 03 03 EF 00186 EXTZV #3, #3, (R10), RO + 2949 
7E 50 00000000" BF C9 0019 BISL3 #<LINS ENTIDMTCHOS-8>, RO, -(SP) : 
000000006 00 09 FB 00198 CALLS #9, LIBSSIGNAL : 2951 
57 16 Ad GE OO1A2 118: OVAB 22(R4), R7 : 2958 
48 OA Ad £8 001A6 LBS  10(R4). 12$ : 
56 14 A& SA OOTAA MOVZBL 20(R4). RO : 
56 67 DO OO1AE OVL (R7), R6 : 
50 00 01 AB 04 AE 2D 00181 CMPCS 4(SPS, 1(IDENTSTRING), #0, RO, 1(R6) + 2957 
01 AG 00188 : 
61 13 001BA BEQL 14$ F 
146 AS GF 001BC PUSHAB 20(DEFFDB) + 2963 
7E 10 AE @8 C1 001BF ADDL3 #40, DEFOMD, -(SP) ; 2962 
6 DD 001C4 PUSHL  R6 : 296 
7E 000000006 00 14 C1 001C6 ADDL3 #20, LNKSGL_CURFIL, (SP) : 2962 
00000000" EF SF OOICE PUSHAB OBMO ESC +40 : 2961 
0900 8F BB 00104 PUSHR #°M<R8,R11> + 2963 
59 DD 00108 PUSHL JECTNAME ; 
08 DD 001DA PUSHL # : 
50 6A 03 03 EF 0010C EXTZV #3, #3, (R10), RO : 2960 
7E 50 00000000* 8F C9 001E1 BISL3 #<LINSENTIDMTCHE-8>, RO, -(SP) : 
000000006 00 OA FB 001E9 CALLS #10, LYBSSIGNAL + 2963 
65 11 001FO BRB 16$ : 295 
50 01 AB 9E 001F2 12$:  MOVAB 1(IDENTSTRING), RO : 297 
53 03 AO 9A 001F6 MOVZBL 3(RO), IDENTIMAJID : 298 
18 0 ef 1FA EXTZV. #0, #24, (RO), IDENTIMINID : 298 
32 03 AZ 9A OO1FF MOVZBL 3(R7), [DENT2MAJID : 2984 
1 99 EF 03 EXTZV #0 eu (R7), IDENT2MINID > 2985 
52 D1 08 CMPL IDENT MAJID, IDENT2MAJID : 2987 
12 1 BNEQ 5 3 
06 OA AG 9 0D BITB 19(R4), #6 : 2988 
7 12 00211 BNEQ 13% ; 
51 0 D1 00213 CMPL {DENT2MINID, IDENTIMINID > 2989 
F 1B 0 1 BLEQU 16 ; 
5 11 1 BRB 15$ : 
51 p O21A 13%: CMPL IDENT2MINID, IDENTIMINID : 
13 Q021D 14$: BEQL g ; 
146 AS OF OOZ1F 15$:  PUSHAB 20(DEFFDB) $ 2994 | 


2 
LNK_OBJPASS1 1-Se -1984 00:12: AX-11 6} tag =32 V4.0-74 Page 92. 
vo4=000 1e-Sep=1984 9:25:38 EMtixer® sre LNKOBJPS1.832;1 9°26) 
7E 10 AE C1 3 ADDL3 #40, DEFOMD, -(SP) : | ; 
DD PUSHL —IDENT2MINID ae 
DD 00229 PUSH ibe MAJID F | : 
7E 000000006 00 Me gt ADDL3. #20, LNKSGL_CURFIL, ~(SP) : 2993. : 
00000000" EF 9 PUSHAB ; | : 
0 F BB PUSHR oe R11> 3 2994 | : 
3 b> O0¢%p PUSHL IDENT 1 MAJID ; | : 
dD i PUSHL ECTNAME F : 
A DD 0004 PUSHL # ; | : 
50 A 3 EF 0024 EXTZY #3, #3, (R10) ; 2991 : 
E 00000000" BF C9 0094 BISL #<CINS E *ENTIDMECHBE-B>, RO, -(SP) : : 
000000006 f FB CALLS TBSS1GNAL 2996 : 
p 16$: MOVL 4#1,°R ; 3000 ‘ 
4 0025a RET : ; 
50 04 00058 178: CLRL RO : ; 
4 0025D RET j : 


; Routine Size: 606 bytes, Routine Base: S$CODE$ + 1698 


M2 
LNK_OBJPASS1 16-Sep-1984 00:12: AX=11 Bliss-32 V4.0 Page 93. 
1Oa2000 aaa ts PP ES eS So eRe 29° 95), 
Cc 


H 9 poe 1 routine compare_env (envname, node, envrec) = | 
; Boz begin 
: § BR? COMPARE AN ENVIRONMENT NAME WITH THE CURRENT NODE IN TREE 
; 2 4 009 ma 
: 2535 008 envname : ref aa Le byte2. | 
s 2 § sts node : ref block byte] ; 
: n 
; 2 5 ae envdesc = .node + node$c_short : block C, byted; 
3 3540 O18 return ch$compare (.envname [0], envname [1], .envdesc Cnvd$b_naming], envdesc [Cnvd$t_name], 0) 
3 2541 014 #1 end; 
001C 00000 COMPARE_ENV: 
«WORD Save R2,R3,R4 : 3002 
50 08 AC OA C1 00002 ADDLS #10, NODE, RO : 3011 
26 04 AC 00 00007 MOVL ENVNAME, R2 ; 3013 
5 62 9A 00008 MOVZBL (R2), R3 : 
51 12 AO 9A OO00E MOVZBL 18(RO), R1 ; 
54 01 D0 00012 OVL #1, R4 ; 
51 00 01 + A2 53 2D 00015 CMPCS = R3, 1(R2), #0, R1, 19(RO) : 
13. Ad 0001B : 
03 1A 0001D BGTRU 1$ 3 
54 01 D9 OOO1F SBwWC #1, R4 ; 
50 54 DO 00022 1$: MOVL R4, RO : 
04 00025 RET : 3014 


; Routine Size: 38 bytes, Routine Base: S$CODE$ + 18F9 


N 
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} 
; 2543 015 1 Pout ine alloc env (envname, retnodeadr, envrec) = ; 
ee te peal 
: +8 B18 ALLOCATE A NEW ENVIRONMENT DESCRIPTOR BLOCK ; 
; 2548 020 map . 
3: 2549 021 envname : ref vector [, Pte : 
3 229 0 ¢ retnodeadr : ref vector long], ; 
3; 2551 0 envrec : ref block C, bytel; ; 
3 226 024 3 
8 222 025 Local : 
3 eee 0 $ newnode : ref block (, byte], ; 
: 22? f envdesc : ref block [, byteJ; : 
3; 2557 O93 ink$alloblk (node$c_short + nvd$c_size + .envname [0], newnode); 
: 2558 030 envdesc = .newnode * node$c eshort; 
; 2559 3031 chstitt (0, nvd$c_size, .envdesc) 
: 2560 3038 2 envdesc [nvd$l_omdnum] = lnk SQW. nmodules; 
3 $20! 303 § ch$move (.envname [0] + 1, envname [0], envdesc Cnvd$b _naming)); 
; 268 3034 retnodeadr [0] = .newnode: 
; 256 3035 2 return true | 
3; 2564 3036 1 end; | 
007C 00000 ALLOC_ENV: 
-WORD Save R2,R3,R4,R5,R6 3; 3015 
5E 04 C2 00002 SUBL #4, SP $ 
5E DD 00005 PUSH SP : 3029 
7E 04 BC 9A 00007 MOVZBL ae yN Se - (SP) : 
6E 1D CO 00008 ADDL ; 
000000006 00 02 FB BR O0E CALL LLOBLK F 
56 6E OA C1 0001 ADDL Hs NEUNDBES ENVDESC : 3030 
13 00 6E 20 2c a Be MOVCS (SP), #0, #19, (ENVDESC) ; 3031 
0c A6 00000000" EF 3C OOOTF MOVZWL LNKS$GW_NMODULES, 12(ENVDESC) : 3032 
50 04 BC 9A 00027 MOVZBL @ENVNAME, RO : 3033 
50 D6 00028 INCL R 3 
12 A6 04 BC 50 28 0002D MOVC3 RO, @ENVNAME, 18(ENVDESC) : 
08 BC 6E DO 00033 MOVL NEWNODE, @RETNODEADR : 3034 
50 01 DO 00037 MOVL #1, RO : 3035 
04 O003A RET : 3036 | 
| 


; Routine Size: 59 bytes, Routine Base: $CODE$S + 191F 


3 
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: Sef O38 1 routine * insudfenvy (envnode) : novalue = 
: $668 ‘o34. 
; 2569 040 : THIS ROUTINE ENTERS AN ENVIRONMENT INTO THE UNDEFINED 
3 $71 bes ENVIRONMENT LIST. 
: Le 828 ; map 
3 af? bee i gine : ref block C, byted; 
oR on 
: 2577 048 nd 
: 2/8 Bop envdesc = .envnode + node$c_short : block C, byte]; 
: 2580 051 Local 
; 2581 p26 ch_result 
3 266 $27 nxtenv : ref block C, bytel; ! POINTER TO SYMBOL VALUE BLOCK 
: 2584 3088 ; 
3 aH $025 FIND THE SPOT TO INSERT THE NEW ENVIRONMENT IN THE UNDEFINED LIST 
: 387 3058 "  axtenv = Lnk$gl_udfenv; ! SCAN THE UNDEFINED LIST 
; $255 srey atts (natony = .nxtenv Cnvd$l_udflink]) neq Lnk$gl_udfenv do 
3 egin 
: $891 5062 § ° 
3; 2592 30635 4 if (ch_result =_ch$compare (.nxtenv Cnvd$b wee ! JF GREATER 
3 tat, foce : Se nxtenv Cnvd$t_name], .envdesc Cnvd$b_naming], envdesc Cnvd$t_name])) gtr 0 
; 395 3066 3 i exitloop ! THEN WE ARE ALL DONE 
3 e 
3; 2597 3068 ; 
; $205 isd : ‘ -ch_result eql 0 ! JF EQUAL 
e en 
; ses $053 ; return; ' THEN ALREADY IN LIST, SO RETURN 
; 360 3078 2 end; 
; 260 074 2 
: 2604 3075 2 insque (envdesc pees’ ydfi ink). ' INSERT IN UNDEFINED LIST 
3; 2605 3076 2 -nxtenv Cnvd$l_udbTink)); 
3 sone sper § akon, nudfenvs = Se bang nudfenvs + 1; ' COUNT THE UNDEFINED ENVIRONMENT 
e u 
3; 2608 3079 1 end; 
O1FC 00000 INSUDFENV: 
~WORD Save R2,R3,R4,R5,R6,R7,R8 
58 00000000' ¥ 9E 0000 ROvAR LNKS$GL_UDFENV, R& 
56 04 AC A C1 0000 ADDL #10 ERVNODE. R 

54 68 9E 000E OVAB LNKSGL UDFENY NXTENV 

54 64 0 01 1$: MOVL NXTENV), NXTENV 

20 8 9E 00014 MOVAB UNSGL UseE ENV. RO 

0 4 D1 00017 CMPL NXTENV 

20 13 OOO1A BEQL 3$ 


] 
| 


1b-s¢ seit OB: 18:3 YMaDLePARSCHZBtSSs7HE. Page 


1 12 AS 9A 0001 MOVZBL 18(NXTENV), R1 ; 68 
13 A6 9A 09 § MOVZBL (NATE RO : 3064 
1 00 00024 MOVL #1, R5 : 
50 00 13. AG 1 2D 00027 CMPCS R1. 19(NXTENV), #0, RO, 19(R6) : 
13 ae 002D : 
03 1A OO02F BGTRU 2$ : 
55 01 D9 00031 SBWC OWI, RS ‘ 
57 55 DO 00034 2$: MOVL RS. CH_RESULT : 
03 14 00037 BGTR 3$ : 
D6 12 00039 BNEQ ='1$ ; 
04 00038 RET ; 
04 Bs 66 OF 0003C 3$: INSQUE (R6), @4(NXTENV) : 
40 AB B6 00040 INCW | LNK$GW_NUDFENVS : 3077 
04 00043 RET : 3079 


; Routine Size: 68 bytes, Routine Base: S$CODE$S + 195A 


; 2609 3080 1 


WA 
ooo 
ANO 
oo 
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dD 3 
LNK_OBJPASS1 16-Sep-1984 00:12: AX-11 Bliss-32 V4.0-74 Page 97) 
v04=000 1228671384 99:18:38 EC INKER-SRCJLNKOBJPS1.B 2;1 . (28) | 
: 2611 081 1 global routine Lnk$fndenvmap (envnum) = : 
ot 06 2) begin ; al 
3; 2614 084 : THIS ROUTINE RETURNS THE ADDRESS OF THE MAPPING : 
; 2615 085 : TABLE ENTRY FOR ENVIRONMENT NUMBER ‘’ENVNUM'' IN | ; 
: 2616 086 i THE CURRENT MODULE. | ; 
: 2617 0 ; THE ENVIRONMENT MAPPING TABLE IS AN ARRAY POINTED TO BY : 
; 2618 088 : THE MODULE DESCRIPTOR BLOCK. IT IS INITIALLY ‘ 
; 2619 089 ' ALLOCATED WITH SPACE SUFFICIENT FOR 256 ; 
; 630 090 } ENTRIES. IF MORE THAN 256 ENVIRONMENTS ARE ENCOUNTERED DURING 
; 2621 3091 ' HE PROCESSING Of THE OBJECT MODULE, THE INITIAL TABLE IS 
H sos¢ $038 : COPIED OUT TO ANOTHER BLOCK, AND THE MAP TABLE ORIGINAL MAP TABLE 
> 26 09 i COMES A TABLE OF TABLE ADDRESSES. 
; $ese 3094 : 
> 2625 3099 literal | 
; 2626 096 tablesize = 256*pmt$c_size; ! SIZE IN BYTES OF A BLOCK 
> 2627 3097 2 Local | 0 
; 2628 3098 2 blockoff, ! OFFSET OF ENTRY IN EXTENDED BLOCK 0 
: 2629 3099 § first_entry : ref block C, bytel, 
; 2630 3100 first 256 : ref block C, byte], ! address of block of first 256 
: 2631 3101 2 mapent : ref block f- byted, ! ADDRESS IN PSECT MAPPING TABLE 
5038 $106 5 mapoff : ref block [, byte; ! ADDRESS OF EXTENDED MAPPING BLOCK 
3; 2634 3104 2 if .lnk$gl_curomd Comd$l_envmap] eql 0 ! IF NO TABLE ALLOCATED YET 
; 2635 3105 . then 
; 2636 3106 begin ; 
; 2637 3107 3 ink$alloblk (tablesize, Lnk$gl_curomd Comd$l_envmap]); ! ALLOCATE IT NOW 
; 2638 3108 3 ch$fill (0, tablesize, .lnk$gl-curomd Comd$l_envmap)); 
3; 2639 3109 2 end; 
3 2640 3110 2 
3; 2641 3111 2 mapent = .lnk$gl_curomd Comd$l_envmap] + .envnum*pmt$c_size; 
: 2668 3112 ¢ ! GET ENTRY ADDRESS IN BASE MAPPING TABLE | 
3 2644 3114 2 if not .lnk$gl_curomd pgndtv_0256) ! IF NOT INTO EXTENDED MAP TABLE 
3 2645 3115 2 and .envnum lequ 255 ! AND LEQU 255 ENVIRONMENTS 
i 2646 3116 2 then 
3 2647 3117 2 return .mapent 
3; 2648 3118 2! 
3: 2649 3119 2 ! EXTENDED ENVIRONMENT ENTRY 
; 2650 3120 2! 
: 2651 3121 else 
: sees 3158 begin ; 
; 265 312 blockoff = (.envnum mod se epntec 8180: ! OFFSET OF ENTRY WITHIN EXTENDED TABLE 
s soe $1S¢ ; mapent = .lnk$gl_curomd Lomd$l_cnvmap] + ((.envnum )/2 9) spats size; 
; tH $152 ' GET ADDRESS OF EXTENDED TABLE ADDRESS 
3 $ee$ 3127 3 if ..mapent neq 0 ' IF EXTENDED TABLE PRESENT 
; 2639 $158 : and .\nk$gl_curomd Comd$v_e256] ! AND THERE REALLY IS AN EXTENDED TABLE 
3 then 
3; 2660 130 return ..mapent + .blockoff ! THEN RETURN ENTRY ADDRESS 
3; 2661 131 lse 
3 666 1 ; 4 begin 
3 397 : Z ? ink$alloblk (tablesize, mapoff); ! ALLOCATE EXTENDED TABLE BLOCK 
3; 2665 135 4 if not .lnk$gl_curomd Comd$v_e256] ! IF THIS IS THE FIRST ONE 
3 066 1 $ 4 then 
3; 266 1 5 begin 
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0800 
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00 


end; 
end; 


000000F F 


3 
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ficgt entry = LnkSglcyrondtgag6t envaap]; 
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(28) 


ch$move (tablesize . (nk$gl"curomd Comd$l_envmap], Phe te 374s ! AND COPY BASE TABLE OUT 


ch$fill (0, tablesize, - ink Sal curomd Comd$l_envmap)); !~ZERO BASE TABLE 
= . 


first entryComgsl secoat Trst_256; 
LnkSgl_curond omd$v_e256] = true; ! FLAG INTO EXTENDED TABLE 
end; 


ch$fill (0, tablesize, .mapoff); ' ZERO NEW BLOCK 


' 
; POINT ENTRY IN BASE TABLE TO NEW BLOCK 


mapent Cpmt$l_secpmt] = .mapoff; 
rerun -mapoff + .blockoff 
end; 


OFFC 00000 -ENTRY “oye tt at rp anal Save R2,R3,R4,R5,R6,R7,R8,- 
5B 000000006 00 9€ 00002 MOVAB LNKSALLOBLK, R11 
3A 000000006 00 9 90009 HOVAB LNKSGL _CUROMD, R10 
50 6A 00 0001 MOVL LNKSGL_CUROMD, RO 
8 49 83 b08i8 1 hae 
18 AO 9F 0001B PUSHAB 24(RO) 
7E 0800 8F 3C OO01E MOVZWL #2048, -(SP) 
68 02 Fe 0002 CALLS #2, LNKSALLOBLK 
50 6A D 00 6 MOVL _LNKSGL_CUROMD, RO 
6E “ 00 2¢ 990 ; MOVCS #0, (SP), #0, #2048, @24(RO) 
51 6A D0 00 é 1$: MOVL § LNKSGL_CUROMD, R1 
50 04 AC bo 00 MOVL NVNUM, R 
56 18 8140 E 00039 MOVAQ @24(R1SCROJ, MAPENT 
0D E8 000 BLBS 21(R1), 2$ 
8F 1 04 CMPL = oaRO, #255 
4 A 4 BGTRU $ 

50 6 00 0048 MOVL MAPENT, RO 

4 0004E RET 
50 1 A ‘cH 23: EMUL #1, RO, #0, -(SP) 

00000100 8F 7 34 EDIV #256, (sP)4+, R2, R2 
50 0000010 ; ie bet Divi? ; f BLotKorF 
56 8 B140 68 MOVAQ @ 2 ear PROD, MAPENT 
68 ) 6D TSTL (MAPENT) 2 

1 6f BEQL 
05 15 Al € 1 BLBC 1(R1), 3$ 
66 59 C1 6 75 ADDL3 BLOCKOFF, (MAPENT), RO 

4 00079 RET 


zz. 

LNK_OBJPASS1 16-Sep-1984 00:12: AX-11 Bliss-32 v4.0 Page 99. 
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SE DD 7A 38: PUSHL : 3133. 
7E 0800 oF Re a07 MOVZWL #2048 SP) : | 
8 2 Ff 81 CALLS CMR SAL LOBLK : 
6A DO 00084 VL LNKSGL L SCUROMD : R7 + 3135 

A 15 A7 €E8 00087 BLBS : 
7 18 0 8 ADDL2 #24 ; RST_ENTRY : 3138 
04 AE OF i PUSHAB FIR + 3139 

7E 0800 gf C 0009 MOVZWL ‘ 0487 =(SP) : 

& 2 FB 00 % CALLS P gkNKSALLOBLK : 
& A 0 OVL tnk $6L ~GURO : 3140 

04 BE 18 88 0800 8F 9C MOVE #2048, “3 teres Sar ARS! 256 : 
0800 «8 0 a ” 09 ¢ a MOVCS #0, (§P), #0, #2048, a24(R8) + 3141 

67 04 AE 9 9 AD MOVL FIRST 256, (FIRST_ENTRY) + 314 
15 AB 0 081 BISB ; +7 2285 + 314 

0800 8F 00 6E pe 00 C 908> 4$ MOVC 70° (SP), #0, #2048, aMAPOFF + 3146 
66 —E 00 OO0BE MOVL MAPOFF, (MAPENT) : 3151 
50 6E 9 ¢1 000C1 ADDL3 BLOCKOFF, MAPOFF, RO : 3152 
04 000¢5 RET : 3157 


; Routine Size: 198 bytes, Routine Base: S$CODE$S + 199€ 


; 2688 3158 1 


3 
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routine proeny = 


THIS ROUTINE PROCESSES ENVIRONMENT DEF INITION/REFERENCE 
: SUBRECORDS. 


envrec = objvec C.gsdoffset] : block C, bytel; 
builtin 

remque; 
Local 


er, 
onunee : ref block C ages: 
envnode : ref block L, ytel, 
envdesc : ref block [, bytel; 
? -envrec Cenv$b_naming) eql 0 or .envrec Cenv$b_naming] gtru sym$c_maxing 


en 
(signal (LinS_illnamelen, 6, ink$gt_envstring, envrec Fens pening). -envrec Cenv$b_naming], 
ena 


NNN NNN NN NNO AAA AAAOOAR 
eh hh) SS css woonoono 
owow Ww - oD wy aul 
WAAL IWAN 


DOOOOS OOO OO OOO OO WWW W009 000909 09 NIN NIN SINS INIOA AAA AAAAAOM 


; 159 1 

: 160 1 

; : 1 : 

; 188 | 

; 164 2 

; ; 5 

; 189 

; 168 

; ' 9 

; : 

; 2704 138 

; 174 

; 2706 175 

; 179 

t 27 ! $ sym$c_maxng, obmodesc Lomd$b_namingJ, Lnk$gl_curfil Cfdb$q_fi mej); return false); 

: 2711 180 2! 

3 ar ; 1 INSERT ENVIRONMENT RECORD INTO ENVIRONMENT TREE 

5 2714 1 g LibSinsert_tree (lnk$gl_envtree, envrec Cenv$b_naming], %ref (0), compare_env, alloc_env, 

3; 2715 184 envnode, envrec); 

3 a ; 2 envdesc = .envnode + node$c_short; 

: 78 : PUT ENVIRONMENT INTO THE ENVIRONMENT MAP TABLE 

; $439 189 2  obmodesc [omd$v_noenv] = false; , 

: 2721 190 obmodesc Comd$w_hienv] = .obmodesc Comd$w_hienv] + 1; 

: ef ¢ 191 envmap = \nk$fndenvmap (.obmodesc Comd$w_hienvJ); 

; i : 4 envmap Cpmt$l_pscdes] = .envnode; 

: 2725 194 ‘IF .ENVMAPCPMTSL_SYMLST] NEQ 0 ' SYMBOLS DEFINED BEFORE THE ENVIRONMENT? 

; $756 : H a '®#ONLY NEED TO ASSOCIATE SYMBOLS WITH ENVIRONMENT FOR CROSS REF 

; 18 197 2: END; 

: ie 198 : 

; 2730 199 ! IF THIS IS A_DEFINITION, REMOVE FROM UNDEFINED LIST IF IT'S 

3: 2731 § 0 ; » sy it's. FIRST REFERENCE TO THIS ENVIRONME P 

3 , § THEN PUT IT ON THE UNDEFINED LIST. 
: 2? | 
3: 2735 4 if .envrec Cenv$v_defJ 
i 27 5 then | 
: 4 53 begin | 
: 2739 o8 if .envdesc (Cnvd$l_udflink] neq 0 
3; 2740 09 then 

3: 2741 10 4 (remque (envdesc Cnvd$l_udflink], ptr); 

3 ° \; Lnk$gw_nudfenvs = .lnk$gw_nudfenvs - 15; 

: oe] 18 envdesc (nvd$v_def] = true; 

: 2766 15 if .envmap(pmt$l_symist] neq 0 


H 3 
LWNK_OBJPASS1 $-Sep-1986 00:12: AX-11 Bliss-32 v4.0-76 Page 101. 
aves iti ates ra ee ta Ca ee Pee age 39) 
747 
7 


1 
1 


then 


begin 
envdes Cnvd$l_symtbl] = .envmapCpmt$l_symist]; 
envaep pmt$i_symist] = 0; 

end; 


gsdoffset = .gsdoffset + envrec Cenv$t_name] - envrec Cenv$b_gsdtyp] + .envrec Cenv$b_naming); 
roeere true 
end; 


OOWSONOVUVLS WN" OOOne 


3 
4 
4 
4 
nd 
else 
af not .envdesc (nvd$v_def] and .envdesc (nvd$l_udflink] eql 0 

en 

insudfenv (.envnode); | 
1 


nm 
WrRonononononononofnonn | SS 


003C 00000 PROENV: .WORD Save R2,R3.R4,R5 : 3159) 
55 FEBS «OCF OSE: 9000¢ MOVAB ALLOC_ENV, R : 
54 00000000" EF H 0000 MOV GSDOFFSET. R& : 
3E 8 c 0000€ SUBL2 #8, S ; 
5 64 3¢€ 00011 MOVZ2WL GSDOFFSET, R3 + 3166 
53 0c Aad CO 00014 ADDL2 JVEC, RS ; 
50 05 a3 9A 00018 MOVZBL 5(R3), RO > 3175 
5 13 0001C BEQLs : 
1F 0 91 OOO1E CMPB—s«aRO,, «#311 : 
2a 1B 09021 BLEQU 2$ : | 
7E 000000006 00 14 C1 00023 1$ ADDL3 #20, LNKSGL_CURFIL, -(SP) : 3178) 
64 Ad SF 00028 PUSHAB ODESC+40 ; 
1F DD 000¢E PUSHL #31 : 
30 BD 000 PUSHL RO ; 
05 AS’ OF 0005¢ PUSHAB 5(R3) : 3177 
00000000" EF 9F 0003 PUSHAB LNKSGT_ENVSTRING F 
DD 00038 PUSHL #6 : 3178. 
000000006 8F DD 9005p PUSHL #LINS ILLNAMELEN : 
000000006 00 ge FB 0004 CALLS #8, LIBSSIGNAL ; 
0084 31 O004A BRW 6$ ; 
53 DD 0004D 2$ PUSHL R3 ; 3183 
08 AE 9F OO04F PUSHAB ENVNODE : 
55 DD 00052 PUSHL R F 
DA AS OF 094 PUSHAB COMPARE_ENV F 
10 AE D4 00057 CLRL -16(SP) : 
1 AF F OO05A PUSHAB 16(SP) : | 
05 as 9F 00050 PUSHAB 5(R3) : | 
00000000" EF 9F 00060 PUSHAB LNKSGL ENVIR : 
000000006 00 7 Fe CALLS #7, LIBSINSERT_TREE : | 
52 4 AE A ‘ ADDL aig ENVNODE, ENVDESC > 3185 | 
0 A F BA BIC #126 €§¢+20 > 3189 | 
Ad 86 0007 INCW  OBMODESC+ : 3190 
Kt AG 3c QOO7A ROVZML OBMODESC #22, ~<sP) : 191 
2 01 fF 7 CALLS #1, LNKSFNDENVMAP ; 
60 4 AE D MOVL WNODE, (ENVMAP) 2 3192 | 
1 AS E BLBC R3), 4$ ; 204 
62 05 0008A TSTL —- (ENVDESC) ; 3208 | 


LNK PASS! 
yoc2000 
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0 AZ ADO 

OF 11 

08 10 és bs 
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DESC), PTR 

*iecth ERVDESSS 
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NV 

K 

Env 

mune B(ENVDESC) 
(ENVDESC), 58 
NVDESC 


VN 


sol 


2. 
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UNKS 
#1 
4( 
5$ 
4( 
4( 
5$ 
(ENVD 
5$ 
EN 
6s 
R 

n3 
5( 
R1 
#6 
#1 


RO 
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: 2763 1 1 routine Llocalsymbols = 
3: 2764 § begin 

: 2765 Local | 
3; 27 4 Length; 

; 276 5 bind 

: res § symbolrec = objvec C.gsdoffset] : block C, bytel; 

i 3770 8 ¢ entrymask = 0; ! ZERO THE ENTRY MASK SINCE NONE EXISTS 
: 277 40 2 if not .symbolrec Clsy$v_def] ! IF NOT DEFINED 
:; 277 4) then begin 

: 2774 tg symbolstring = symbolrec pisrtsb_nealogd; ! POINT TO THE SYMBOL STRING 

; a $7 cength = symbolrec [lsrf$t_name] - symbolrec Cisrf$t_start] + .symbolrec Clsrf$b_namingJ; 

; en 

: 277 45 else begin 

3; 2778 +8 symbolstring = symbolrec pt sd tsb nantngd: ! POINT TO THE Pe 

3 444 rh 4 congen = symbolrec Clsdf$t_name] - symbolrec Clsdf$t_start] + .symbolrec [lsdf$b_naming]; 

3 end; 

3; 2781 49 

; 278 sf if not prosymbol (0) ' GO PROCESS THIS SYMBOL 

; A 3 3 then return false; ! AND EXIT IF FAILURE 

: 2785 3528 gsdoffset = .gsdoffset + .length; ! UPDATE THE GSD OFFSET FOR NEXT 

: 2786 $$2¢ return true 

; 2787 255 1 end; 


000C 00000 LOCALSYMBOLS: 
- WORD 


Save R2,R3 
3 00000000' EF H 90002 MOVAB GSDOFFSET, R3 
$ 0c rt CO 0000 ADDL2 OBJVEC, R2 
02 A’ B4 0001 CLRW  ENTRYMASK 3238 
2 01 £0 9001 BBS #1, 2(R2), 1$ 3240 
06 A : 0018 MOVAB 6(R2), SYMBOLSTRING 324 
52 C3 00010 SUBL3 R2, R2, RO 324 
06 A2 9A 99 1 MOVZBL 6(R2), R1 
51 CO 00025 ADDL2 R1, RO 
07 AO H 900 8 MOVAB 7(RO), LENGTH 
Oc Ad 96 OOOSE 18: Ravan 3(R2), SYMBOLSTRING 3348 
83 5 Mii 5 UBL n3 R2. RO 247 
Oc A2 9A 999 7 MOVZBL 12(R2), RI 
51 CO 00038 ADDL2 R1, RO 
0D AO 9E 000 E MOVAB 13(RO), LENGTH 
7E 04 00042 28: CLRL =<SP) 3250 
01 FB 0044 CALLS #1, PROSYMBOL 
50 £ 0049 BLBC = RO, 3S 
52 AO 0004C ADDW2 LENGTH, GSDOFFSET 3253 
01 00 O004F MOVL #1, RO 3254 
04 005 RET 
50 D4 00053 3$ CLRL = RO 3255 
04 0005 RET 
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Routine Size: 


Routine Base: S$CODES + 1838 


86 bytes, 


e0- 1984 00:15:38 AX-11 Bliss-32 V4.0-74 


Le OB APASS| 
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; 2789 § 1 routine localentpnt = 
Py 7 egin 
3; 2791 8 local 
; 279 Length; 
: 279 60 bind 
3 symbolrec = objvec C.gsdoffset] : block C, byteJ; 
a | 3 bol bj C.gsdoffset) : block C, byte] 
; $f entrymask = .symbolrec [lepm$w_mask); ! EXTRACT THE ENTRY POINT MASK 
3 64 symbolstring = symbolrec Llepm$b_naming); ' POINT TO THE SYMBOL 
: 2798 3 Length = symbolrec Llepm$t_name] - symbolrec Clepm$t_start] + .symbolrec Clepm$b_naming); 
3 o00 § if not prosymbol (1) ! GO PROCESS THE SYMBOL 
; it 43 then return false; ! AND EXIT IF FAILURE 
; 808 70 gsdoffset = .gsdoffset + .length; ! ELSE UPDATE THE OFFSET FOR NEXT 
: 2804 271 return true 
; 2805 272 1 end; 
000C 00000 LOCALENTPNT: 
«WORD Save R2,R3 
53 00000000" EF 9€ 00002 MOVAB GSDOFFSET, R3 
5 63 3C 00009 MOVZWL GSDOFFSET, R2 
5 Oc A3 CO 0000C ADDL2 OB 4NEC. 8 
02 A Oc A2 B60 00010 MOVW 12(R2), ENTRYMASK 
10 A3 OE as rt 00015 ily 14(R2), SYMBOLSTRING 
50 52 52 C3 OQOO1A SUBL R2, R2, RO 
51 OE A2 9A Bots MOVZBL 14(R2), R1 
50 51 C¢O i ADDL2 R11, RO 
52 OF AO 9E 00025 MOVAB 15(RO), LENGTH 
01 DD 00029 PUSHL #1 
FOD9 CF 01 FB Bo0$8 CALLS #1, PROSYMBOL 
07 50 €9 000350 BLBC RO, 1$ 
63 52 AO 00033 ADDW2 LENGTH, GSDOFFSET 
50 01 D0 00036 MOVL #1, RO 
04 00039 RET 
50 D4 OO03A 1$ CLRL RO 
04 0003C¢ RET 


; Routine Size: 61 bytes, Routine Base: S$CODE$ + 1B8E 
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AWWA & BF BAAN B&B AAA BBE BANANA PUPIPODINPONINONINIPUNOPONINUNYNY 


AT 


orevalaste : 
argcount; 


ref vector C, byte], 


if not localentpnt () then return false; 
entflag = .symtabent neq 0; 
egin 


LINKER. SRCJLNKOBJPS1 


ON OF MODULE LOCAL SYMBOL 
NATION OF WHAT A PROCEDURE 


! PROCESS THE ENTRY POINT SYMBOL PART 
! SEE IF ENTERED 


nd 
formals = objvec C.gsdoffset] : block C, byte]; ! THE FORMAL DESCRIPTION 


7 -formals Cfml$b_minargs] gtru .formals Cfml$b_maxargs] 
en 


begin 

signal (Lin$_illfmicnt, 5, 
- formals 
obmodesc 

return false; 

end; 


gsdoffset = .gsdoffset + fml$c_size; 
if .entfla 
the 
begin 
ink$dealblk (.argvaldata [0] 


symtabent Csym$l_valdata] = 6; 
end; 


HM (argcount = .formals Cfml$b_maxargs]) eql 0 
n 
! IS ZERO, ALL DONE 


e 
return true; 


if .entflag 
then ; 
n 
inkSal LobLk (,argcount + 2, symtabent Csym$l va 
argvaidata [0] = .argcount + 2; |. ' Set | 
arqvaldata 1] = formals Cfml$b_minargs); 
end; 


incr i from 1 to .argcount 
fe) 
begin 


fm\$b_minargs], .formals 


fm 
omd$b_naming], (ink$gl_curfi 


DESCRIPTION OF FORMALS 
fml 


UTPUT ERROR MESSAGE 
a paxergs.. symentnam Csnb$b_naml 
2 


L Cfdb$q_filename)); 


! UPDATE RECORD POINTER 


9g ! DELETE OLD VALIDATAION DATA 
and (argvaldata = .symtabent Csym$l_valdata]) neq 0 
n 


! MUST BE A NEW DEFINITION 
argvaldata (0J); ! SO DISPOSE OF OLD DATA 


! AND FORGET IT 


! IF MAXIMUM NUMBER ARGUMENTS 


! BEGIN A LOOP THROUGH 
! ALL FORMAL ARGUMENT DESCRIPTORS 


AX-11 Bliss-32 V4.0- 


74 
-B32;1 


! IF THERE IS AN INCONSISTENT 


ng], 


; ! ALLOCATE A VALIDATION DATA BLOCK 
MINIMUM ARGUMENT SPECIFICATION 


N 3 
LNK_OBJPASS1 16-Sep AX-11 Bliss-32 V4.0-74 
yOu=000 14-Sep 71982 90: 1g 38 LINKER. SRCJLNKOBJPS1.B32;1 
; 2864 0 4 
3; 2865 1 4 nd 
: Be § ? argdesc = objvec C.gsdoffset] : biock C, byted; ! POINT TO NEXT DESCRIPTOR 
: yes 7 : if .entflag then argvaldata C.i + 1] = .argdesc Carg$v_passmech]; 
: 2870 $ 4 ' EXTRACT THE PASSING MECHANISM 
; 2871 4 gsdot tact = .gsdoffset + .argdesc Cargsb_ bytecnt] + ! AND UPDATE RECORD POINTER 
3; 287 8 4 argsc_ size; 
; 287 339 
> 2874 40 
; 2875 4] return true; 
3; 2876 rk end; 
3; 2877 334 1 end; 
007C 00000 LOCALPROCEDEF: 
.WORD Save R2,R3,R4,R5,R6 
56 00000000" EF 9E 00002 MOVAB GSDOFFSET, R6 
B6 CAF 00 FB 00009 CALLS #0, LOCALENTPNT 
3F 50 €9 0000D BLBC RO, 2$ 
50 D4 00010 CLRL R 
14 Ab DS 90012 TSTL SYMTABENT 
02 13 0001 BEQL 1$ 
50 D6 00017 INCL RO 
55 50 DO 00019 1$: MOVL RO, ENTFLA 
53 66 3C 0001C MOVZWL GSbOFFSET Sa3 
53 0c Ad CO 0001F ADDL2 OBJVEC, R3& 
01 A’ 63 91 00023 CMPB CRS), “FRB 
28 1B 00027 BLEQ 
7E 000000006 00 14 C1 00029 ADDL #20, LNKSGL_CURFIL, -(SP) 
64 Ab 9F 00031 PUSHAB OBMODESC+40~ 
7E 18 A6 04 C1 00034 ADDL3 #4 SYMENTNAM, -<(SP) 
7E 01 A3 9A 00039 MOVZBL 1(R3), -(SP) 
7E 63 9A 00030 MOVZBL (Ra) rts) 
05 dD 00040 PUSHL @# 
000000006 8F DD 0048 PUSHL aLINS ILLFMLCNT 
000000006 00 07 FB 0004 CALLS #7, LYBS$SIGNAL 
74 11 OOO4F ¢3: BRB 3 
6b 02 AO 00051 3$: ADDW2 GSDOFFSET 
1D 55 €9 90094 BLBC EATECA AG. ae 
50 14 A6 DO 00057 MOVL SYMTABENT, RO 
52 18 Ag b9 00038 MOVL 24 (RO), ARGVALDATA 
13 13 0005F BEQL 4$ 
52 DD 00061 PUSHL ARGVALDATA 
7E 62 9A 00063 MOVZBL CARGVALDATA) -(SP) 
000000006 00 0 FB 0066 CALLS We. LNKSDEALBLK 
50 14 AB D 960 MOVL YMTABENT, RO 
18 «OA b4 0071 CLRL (R 
54 01 A3’ 9A 00074 4$: MOVZBL 1(R3), ARGCOUNT 
4 2 Bn78 BEQL 9$ 
1A 55 E£ O7A BLBC ENTFLAG, 5$ 
7E 14 Ab 18 (1 90070 ADDL3. #24, SYMTABENT, -(SP) 
02 A SF 0008 PUSHAB 2(ARGCOUNT) 


53 
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; Routine Size: 200 bytes, SCODES + 1BCB 


AX-11 Bliss-32 V4.0-74 
LINKER.SRCJLNKOBJPS1.B32;1 


#2, LNKSALLOBLK 
2(ARGCOUNT), RO 

RO, (ARGVALDATA) 
(R$), 1(ARGVALDATA) 
$ 

GSDOFFSET, RO 

OBJVEC, RO 

ENTFLAG, 7$ 

0, 2, (RO), R3 

R3, 1(1)CARGVALDATAJ 
GSDOFFSET, R3 

1RO) RO 

#2, RO, GSDOFFSET 

ARGCOUNT, I, 6$ 

#1, RO 


RO 
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LNK_OBJPASS1 -1984 00:12: AX-11 Bliss-32 V4.0-74 Page 109 
y0e=000 ath 99:18:38 UC INKER SRE LNKOBJPS1.852;1 ° (33). 
; 2879 44 1 routine progsd = 
; 2880 45 begin 

; 288) rf : 
; 288 4 
>; 288 48 144 

>: 2884 49 : VERIFY GSD RECORDS AND DISPATCH ON THE FOUR SUB-TYPES: 

; 2885 50 : (0) P=SECTION DEFINITION 

; 28 51 } (1) SYMBOL DEF INITION/REFERENCE 

; 288 26 : (¢ ENTRY POINT DEFINITION 
; 2888 5 : (3) PROCEDURE DECLARATION 
; 2889 54 leo 

: 5890 85 | 
3; 2891 56 ! 

> 289 57 
; 289 3358 ind : : 

> 2894 gsddispatch = plit ( 

; 2895 propsectdef, 

3; 2896 2 symbols, 

; 2897 3 2 entpnts 

; 2898 ; 2 procedef, 

: 2899 2 symbols, 

; 2900 3 § entpnts, 

; 2901 3 procedef, 

; 290 3 2 randentity, 

; 290 3 § rege ph 
; 2904 ; ocalsymbols, 

: 2905 2 Localentpnt, 

; $o08 3 2 localprocedef, 

3; 2907 3 2 propsectdef) : vector; 

: 2908 3 2 

3; 2909 3 at 

: 2910 3 § 

3; 2911 3 Local 

: 2912 3 2 gsdtype; 

; 2913 3 2 

3 sore 3 e! 

3: 2915 3 2 

5 seis ; 2 if not seqchk () then return false; 

3: 2918 3 gsdoffset = obj$c_suotyp; 

3: 2919 ; ! 

3; 2920 , | 
3 2921 3 while -gsdoffset issu .recing do 
Be | oa 
> 2926 if (gsdtype = .objvec C.gsdoffset]) gequ .gsddispatch [-1] 
3 2925 3 then 

; 358 3 4 begin : ; 

3: 2927 3 4& signa! (Lin$_gsdtyp, 3, .gsdtype, obmodesc Comd$b_namingJ], Lnk$gl_curfil Cfdb$q_filename)); 

: 2928 4 return false; 

: 2929 4 end 
: 29350 3 else 

; $33 4 begin 

: 3% 6 wordpsectgsd = st geetyee gequ gsd$c_symw) ! TEST FOR WORD OF PSECT NUMBER 

; $33 4 and (.gsdtype lequ gsd3c_prow)); 

3 2934 6 iclsymgsd = ((.gsdtype gequ gsd$c_lsy) ! TEST FOR LOCAL SYMBOL 

3 2935 3 4 and (.gsdtype lequ gsd$c_\lpro)); 


Dd 
Lis DRAPASSY 19 138% 90: 15:89 AX-11 Bliss-32 V4.0-74 


-Sep- 
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; 29 401 4 

3; 29 4 4 if not (.gsddispatch C.gsdtype]) () then return false; 

: H 208 ° ——— 

; 2939 404 end; 

: 2940 405 

3 a} rhs end; ! OF LOOP ON A CONCATENATED GSD RECORD 
3; 294 408 return true ' ALL DONE 

s 2944 499 #1 end; ! OF PROGSD 


-PSECT $PLITS,NOWRT,NOEXE,2 
-—BLKB 1 


0006F 
00000000 00070 “LONG 13 
00000000" 00000000' 00000000' 00000000' 00000000" 99000000" 00074 P.AAK: ZADDRESS PROPSECTDEF, SYMBOLS, ENT 
00000000" 00000000' 00000000' 00000000" 00000000' 00000000' 0008c SYMBOLS, ENTPNTS, PROCEDEF 
00000000 000A4 PROENV LOCAL SYMBOLS, LOCALENTPNT 


-PSECT $CODES,NOWRT,2 


LOCALPROCEDE 
GSDDISPATCH= P.AAK 
001C 00000 PROGSD: .WORD Save R2,R3,R4 
54 00000000" EF 9E 00002 MOVAB GSDOFFSET, R4 
£645 CF 00 FB 00009 CALLS #0, SEQCHK 
7C 50 £9 O000E BLBC —_ «RO, 
64 01 B80 00011 MOVW #1, GSDOFFSET 
08 A 64 B1 00014 1$ CMPW GSDOFFSET, RECLNG 
75 1€ 00018 BGEQU 8$ 
50 64 3C OOO1A MOVZWL GSDOFFSET, RO 
50 0c A& CO 00010 ADDL2 OBJVEC, RO 
52 60 9A 00021 MOVZBL (RO), GSDTYPE 
00000000" €éF 52 D1 00024 CMPL  GSDTYPE, GSDDISPATCH=4 
1E 1F 00028 BLSSU-2$ 
7E 000000006 00 14 c 000 p ADDL3. #20, LNKSGL_CURFIL, -(SP) 
64 AG OOF 00 PUSHAB OBMODESC+40 
3¢ DD 00038 PUSHL GSDTYPE 
03 DD O003A PUSHL #3 
000000006 8F DD 0003C¢ PUSHL #LINS_GSDTYP 
000000006 00 05 re O0es CALLS #5, LYBSSIGNAL 
48 11 0004 BRB 9$ 
31 D4 00048 2$ CLRL 1 
04 3 D1 00040 CMPL GSDTYPE, #4 
02 1F 9090 BLSSU 3$ 
51 06 000 INCL RI 
50 04 00054 38 CLRL = RO 
06 52 (1 6 CMPL GSDTYPE, #6 
1A BGTRU 4$ 
06 B INCL 
53 } p 4$ MCOML R1, R3 
FA A 0 B 0006 BICB3 R3. RO, WORDPSECTGSD 
1 04 0 6 CLRL 
09 2 91 0006 CMPL GSDTYPE, #9 


f 


PNTS, PROCEDEF, - 
+ RANDENTITY, = 


age Oi leer etn as 
LINKER. SRCJLNKOBJPS1.832;1 


b-sen-1984 00:12:34 


1 
1 


So N oa oOo 
oS So oOo © 
wT ~~ wT wv 
~» ~» mo eS 
fete tate tea tata tea tea tate tate tate te 
Oo 
a 
*. 
qQ 
w 
a 
a> 
ne 
va 
zum 
>~-o 
_- Mw 
- =x 
Rw Vv 
Je 
s «<n 
w Oo 
a MOoOMAGceF oO 
> ecaew~-— 
am a 
Qa *® sO * * *. 
A—DMNRHO- MVNOOHKH- OC 
WMeacuouwoacacvuaecos « 
2 — 2 ees) 
AMjIjIFijIEZOIWM 8 
MVvVEar-VvOv > I30O0>+-are- 
a2 jEOoZLY-O4 t1tOw uw 
@Oe-VVvO—-ZFOftvrOortacvre 
a) as AA A 
w o ~o oOo 


Ov £O0NDOOOO-OoOvvs 
—-O00- OOM 64 we OOOO 


NM -ONMNOK MVOOyTe OC 
OWMMOUWMATOMOO Ww 
SS 


00000000°E 


AG 


F9 


150 bytes, Routine Base: S$CODE$S + 1(€93 
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16-Sep 

e735p-1382 93:15:38 
Lobal routine Lnk$procsobj (modrfa) = 
READ AND PROCESS ALL REQUIRED OBJECT MODU WE ne 


THAT IS, KEEP READING RECORDS TO END OF FILE 
STOP AT THE FIRST END OF MODULE RECORD. 


1S A POINTER TO THE RECORD FILE ADDRESS OF THE MOD 


emt meer QQ 


ref block C, byte] ; 
ink$gl_curfil Cfdb$t_auxfnb] : 
while LekSontree (objrecdesc) 


do begin 
local status ; 


modrfa : 


auxfnb = block C, byte]; 


if .reclng gtru .maxrecing 
then begin 
if .mhdseen 
then signal (Lin$_illreclen, 3 
»-rectng, obmodesc Comd$b_naming] 
ink$gl_curfil Cfdb$q_filéname] 


else signal (Lin$ Se(ecur niu 
alnk$gl_curfil Cfdb$q_filename) 
grrec ng 
end 
else begin 
lastrectyp = ie 
currectyp = .objrec 0b| $b rectyp.: 
if .currectyp lssu .recdispatch 
and not (not .mhdseen and (.currectyp neq obj$c_hdr)) 
then (.recdispatch C. currectyp) () 


e 

then sional (LinS_illrecty 
»-currectyp, 0 

-lnk$gl_record, 


tte Be Comd$b_namlin 


else signal Ch ing _rectyp 
st ctype 3 Cfdb$q_filename] 
sot “ee T_record, .currectyp 


end ; 
end ; 


if ((.currectyp eql obj$c_eom) or (.currectyp eql obj$c 


rfa$l_vbn] ; 
rfasw_ “offset] ; 


begin 
lastobimod omd$l_modvbn] = .modrfa 
Lastobjmod Comd$w_bytoff] = .modrfa 


_eomw) ) 
an 

(.ink$gl_curfil Cfdb$v_libr] or .lastobjmod Comd$v_shrimg]) 
n 


AX-11 Bliss-32 v4.0 
LINKER. SRC LNKOBJPS1. 5 2;1 


MU 
DISPATCH TO RECORD SPECIF 


MODRFA EXISTS IN THE CASE OF A LIBRARY MODULE OR 7 toe IMAGE AND 


REALLY A POINTER 
AUXILIRIARY FILENAME BLOCK 
IF THERE IS ANOTHER RECORD 


AND ITS LENGTH IS ILLEGAL 


TELL MODULE NAME IF IT IS KNOWN 


OUTPUT AN ERROR AND QUIT ON SEVERE ERROR 


LENGTH OF RECORD OR SO 
COPY OLD pel vs LAST TYPE 


S WITH RANGE 
E ‘‘hdr'’ IF HEADER ” EEN YET 


N $ 
C ROUTINE 


TELL MODULE NAME IF KNOWN 


ink$gl_curfil pinata filename) 
' ELSE OUTPUT ERROR 


IF THAT RECORD WAS AN EOM 
OR CONTAINS A SHAREABLE IMAGE 
AND THE FILE IS A LIBRARY 


THEN THE FILE IS DONE 
AS SOON AS WE EXTRACT THE RFA 
OF THE MODULE 


P 12 
290 MS 


4 
LWNK_OBJPASS1 18-3 AX-11 Bliss-32 v4.0-74 Page 113. 
ia=000 eR aets ra Es ce tg Cea eee oe 29 (34) 


& return true ; 


; 3004 468 5 
; 006 13 d om 4 ! OF RECORDS LOOP : 
3 end ; ! : 
; 3500 471 | 3 
; 300 tts ! | 3 
3 : tt? ' ALL OBJECT RECORDS HAVE BEEN READ AND PROCESSED : 
: 7 475 if (.currectyp neq obj$c_eom) : 
3 Big rf and (.currectyp neq obj$c_eomw) ; 
; 301 47 then begin A 
; Bie rtf local eomrec : block Ceom$c_eommin, byte] ; | : 
; Ol 480 signal (Lins noeon, | 
; 301 481 ,obmodesc Condsb n Lng) ! IF DID NOT END WITH EOM, THEN WARNING 
; Bis re inkSgl curfil Tdb$q. ilename) 
; 2020 484 eomrec it comeod) = obj$c_eom ; ! CREATE FAKE EOM RECORD 
; 3021 485 Senres eom$b_comcod) = eom$c_error; | 
; 30 § 4 $ recing = ' SET LENGTH OF RECORD 
; 30 48 objrec = Eda ; ! AND IT'S ADDRESS 
; 3024 488 currectyp = obj$c_eom ; : scr RECORD TYPE 
; 3025 489 proeom (1) ; ' FINISH EOM PROCESSING 
; 30 $ 490 mhdseen = false ; ' RESET MHD FLAGS 
; 30 491 lnmseen = false ; 
: 3028 138 end ; 
: 3029 49 
; 30 494 return true ; ' FINALLY RETURN AFTER NO MORE 
; 3031 495 lend; ' OF PASS 1 OBJ READING ROUTINE 
003C 00000 -ENTRY LNKSPROCSOBJ, Save R2,R3,R4,R5 : 3611 | 
55 00000000G 00 9€ 00002 MOVAB LIBSSIGNAL, RS ; 
54 000000006 00 9€ 00009 ROVAB — LNKSGL CURFL * RG : | 
53 00000000' Ff 4 00010 MOV CURRECTYP, : 
5E § 4 SUBL ‘R SP 3 
OA A3 9F OOOIA 18: PUSHAB OBJRECDESC ; 3426 
000000006 09 9} Fe 0010 CALLS #1, ENKSAXTREC 3 
0 0 0024 BLBS R $ 3 
008 1 00027 BR 1 : 
3] OA A C A 2%: MOVZWL RECLNG, R1 ; 3430 
1 06 A e 5 CMPW MAXRECLNG, R1 é 
¢ ‘ BGEQ 4 $ 
50 64 6 ¢ ADDL3 #20 LNKSGL _CURFIL, RO > 3435 | 
1 FD «=Ad ED BLBC #MHDSEEN, 3$ : 34 2 
5 ) C PUSHL : 34 | 
66 A F PUSHAB OBMODESC+40 > 3434 | 
1 oO PUSHL R > 3435 | 
3 Dd 0004 PUSHL @ ; 
000000006 Ff 90 4 PUSHL #LINS_ILLRECLEN : 
7 ) BRE : 
3 8B 4D 3%: PUSHR aad R1> : 3438 | 
dD PUSHL 3 
00000000G 8F DD 2} PUSHL ans <tr : 
65 4 FB 7 CALLS LYB$S1GNAL ; 


H 4 | 
LE _OBJPASS! 1-Sep-1984 00:12:36 —-YAX=11 Bl isge32 v4.0-74 Page 114 


14-Sep-19 LINKER. SRCJLNKOBJPS1.832;1 
58 11 5A BRB 9$ 3 3430. : 
FOAM . 30 4$: MOVB  CURRECTYP, LASTRECTYP + 3443, ; 
i movi, {OEE fio CUneC™ ig): 
00000000" EF § Pi 00067 CHL mE ; | ; 
04 FD OAS CE sf BLBS § MHDSEEN, 5$ + 3446 : 
52 0 7% TSTL «OR : | ; 
0D 1 16 BNEG = 6 : ; 
50 00000000'EF42 D 78 S$: MOVL RECDISPATCHERZI, RO + 3467) ; 
yeti gas be ed 
51 4 C1 68: ADDL3 #20 LNKSGL CURFIL, R1 + 3452) ; 
$5 000000006 0 00 0 0 9 LNK$GL RECORD, RO : | ; 
14 FD «AS E900 BLBC  MHDSE ER 3 + 3449 ; 
0 88 0094 PUSHR #*M<RO,R1> : 3452 ; 
66 «AS OOF 0096 PUSHAB OgnoDES¢+40 + 3457 ; 
52 DD 000 PUSHL R2 + 3452 ; 
04 DD 00098 PUSHL #4 : : 
000000006 8F DD 0009D PUSHL aL INS ILLRECTYP : ; 
65 06 FB 000A3 CALLS , LIBSSIGNAL 3 ; 
F 11 DOAG BRB ; ; 
5 BB O00A8 7S: PUSHR  #*M<RO,R2> + 3456 : 
1 DD OOOAA PUSHL 1 + 3455 ; 
03 DD O00AC PUSHL #3 : | ; 
000000006 BF DD OOOAE PUSHL ‘ INS_RECTYP : ; 
65 05 FB 000B4 8$: CALLS LIBSSIGNAL ; ; 
03 63 91 00087 9$: CMPB CURR RECTYP, #3 + 3461 F 
08 13 OOOBA BEQL : : 
07 63 91 000BC CMPB = CURRECTYP, #7 : : 
03 13 OOOBF BEQL 11$ 3 : 
FF56 31 000C1 10$: BRW 1$ : ; 
50 64 D0 000C4 11$: MOVL LNKSGL CURFIL, RO + 3463 : 
09 0A AO 01 €0 000C7 BBS #1, 10TRO), 12 : F 
50 F6 =A3 DO 000CC MOVL  LASTOBJMOD; RO : ; 
EC 146 AO 08 E1 00000 BBC , 20(RO), 10% : ; 
51 F6 A3 DO 000D5 128 MOVL LA STOBJMOD , + 3466 : 
50 04 AC dO 00009 MOVL RO : 3 
oc (Al 60 DO 000DD MOVL ROD “tain 1) : ; 
10 Al 04 AO BO 000E1 MOVW 4(ROS, 16(R1) : 3467 : 
3 M OOE6 BRB 1 : 3468 : 
03 63 91 O00E8 13$: CMPB  =CURRECTYP, #3 : 3475 : 
31 13 OO0EB BEQL ssi : ; 
07 $3 4 QED CMPB CURRECTYP, #7 : 3476 : 
C 13 O000F BEQL 4$ : : 
7E 64 14 ci Fe ADDL3. #20 pENKSGL _CURFIL, -(SP) : 3482 : 
66 AS SF OO0F PUSHAB ee + : 3481 : 
2 DD 000F9 PUSHL # : 3482 ; 
000000006 8F DD O00FB PUSHL #LINS_NOEOM : : 
6 4 F 101 CALLS #4 CTBBSTCNAL ; 3 
6 0203 8F B0 001 MOVW a3{s REC + 3484 : 
OA A 2 80 1 MOVW  heELN : 3486 ; 
Of A ‘ 10D MOVAB e9 MRE C OBIREC : 3487 : 
6 90 00111 OVB , CURRECTYP : 3488 : 
1 Dd 00114 PUSHL : 3489 ; 
F42A OCF 1 FB 00116 CALLS PROEOM : : 
FD AS B4 0011B CLRW anbSE : 3490 ; 


1b-Sen-1986 00:12:56 YaXat! Blisg-32 y4.0-742, Page 115 
50 01 Ro pots 14%: MOVL #1, RO ; 494 
4 1 RET ; 35495 


v4 =PRAPASS! 


; Routine Size: 290 bytes, Routine Base: SCODE$ + 1029 


; 3032 3496 1 


1 - . . 
ves ila tis sep=198e $5346: 83 EM saeSincoaJesi 882: Page 35) 


; ¢ 137 ! global routine ink$Sobjpass! (arglist) = 

; ° 199 1 i THIS 1s THE MAIN BRI YING ROUTINE OF PASS ONE. IT OPENS 

: 5 1} FILE AND IF A LIBRARY, CALLS THE LIBRARY PROCESSING ROUTINE 

; 30 501 1! BR Tr NOT A  IeAaRY ASSUMES IT IS A CONCATENATED OBJ FILE 

; 30 2 § 1 $ ND CALLS THE OBJ MODULE PROCESSOR. 

: 3040 1! WHEN NO MORE at REMAIN, IF THERE ARE STILL UNDEFINED SYMBOLS 
3 3041 3 1 i THE SYSTEM LIBRARY IS MATERAILIZED AS AN INPUT FILE AND 

: beg 2 5 ; OCESSED. 

; 044 5 1: ort ge tt CONTAINS THE ADDRESS OF THE ARGUMENT LIST WITH WHICH THE LINKER | 
: 3045 208 1! WAS ORIGINALLY CALLED. IT IS MERELY PASSED ON TO THE OBJECT | 
F} pee 5 1 3 LIBRARY PROCESSOR SO IT CAN RE-CALL CLI TO OBTAIN THE NAMES (IF ANY) | 
; bee 319 : OF MODULES TO BE EXPLICITLY EXTRACTED FROM THE LIBRARY. | 
3049 51¢ begin | 
; 3050 51 builtin 
; 3051 514 insque, ! QUE INSERTION AND 
: 036 31? eeal remque; ! QUE REMOVING INSTRUCTIONS 

; 3054 319 suffix, ' UNDEFINED SYMBOL LIST SUFFIX POINTER 

; 3055 518 nxtsymnam : ref block C, byte), ! NEXT SYMBOL NAME BLOCK POINTER 

: p28 2% nxtsyment : ref block (C, bytel; ' FOR SCANNING LIST OF UNDEFINED SYMBOLS 

: 3058 521 2! | 
3; 3059 5 § : INSERT THE SYMBOL ‘’SYSSK_VERSION’’ INTO THE SYMBOL TABLE AS AN UNDEFINED 
: 3061 $2 7 : anys ABSOLUTE REFERENCE QITH THE SPECIAL INTERNALLY CREATED SYMBOL 
i 306 3525 2 | | 
3 3063 526 ink$search (Lnk$gt_sysver, symtabent, symentnam); ! FIND wan iT GOES | 
3: 3064 3355 ink$insert (UnkSot~ syaver, syatabent, pyaentnensi ' AND IN sent 

; 3065 3528 symtabent Esym$v wea = true; ' FLAG Ww 

; 3066 $267 symtabent Csym$v_ a m) = true; ' AND INTERNALLY CREATED 

: 3067 3530 LnkSinsudfsym (.Symtabent); ' INSERT IN UDEFINED SYMBOL LIST 

; 3068 $2¢) obmodesc Comd$l_lsterr] = obmodesc Comd$l_errtxt]; 

; yt 3535 ink$gl_curomd = obmodesc; ! POINT TO THE DESCRIPTOR 

: 3071 534 2! 

; ty 3536 BEGIN THE LOOP WHICH OPENS EACH INPUT FILE 

: 3074 537 2 while LnkSnxt til () 1 WHILE THERE REMAIN | 
3 ere $238 do begin : MORE OBJ FILES | 
; 3076 539 Last_lnkopt_fdb = : Rover’ : seen Linker opt recs in this file | 
$ 77 540 ink$gw_nfilés = OF aks winfiles + ' COUNT THE FIL | 
: are 6] Lastobjmod = (nk$gl_Curfil Crabbe _omdist); ! INITIALIZE LAST DESCRIPTOR TO LISTHEAD 

; 3080 228 & if not ci -ink$gl_curfil (Eiahy, | ier2 ! IF THIS INPUT FILE IS A LIBRARY 
> 3081 544 4 hen InkSprocslib ay ist i GO PROCESS IT | 
3 pes 545 4 pa 7 -ink$gl_curfil Cfd Sosy usher] ' IF A SHAREABLE IMAGE | 
: 308 ee8 4 hen (nk$procshrim () ' GO PROCESS IT 
; Dae 3 2 ree ink$procsobj () ' OTHERWISE ASSUME CONCATENATED OBJECT 
; oes 509 then return false; ! EXIT NOW ON FAILURE 

: 3088 551 Lastobjmod Comd$l_nxtomd) = 0; ' END OF USER INPUT FILES 

; O50 236 end; ' END OF USER INPUT FILES 


Be Oe Be Oe Oe Oe Oe Oe Se Oe Oe Be Be Se Se Se Ge FHF Se Be Se Se Se He Se Oe Se Be Se Se Be Se Se Se BH Se Se ee Be Se Se OH ee ee Se Se Se Se SH Se Se Be Se Oe oe 


4 


. | 
voe=000 1eo$ep-198e 42:40:88 EC TncensSReSLnKoBlPSi .882;1 Pane (35) 
091 | 
098 
09% 


i NOW CHECK THAT WE DID GET SOME MODULES AND IF SO 
CHECK FOR UNDEFINED SYMBOLS. 


ink$gl_curomd = 0; 


NO OBJECT MODULE NOW 
if .lnk$gw_nmodules eql 0 then signal_stop (Lin$_nomods); 


SESS 


if .lnk$gw_nudfsyms ne 


q 0 IF THERE ARE STILL SOME UNDEFINED (STRONG | 
then signal (LinS_nudfsyms, 1, .\lnk&gw_nudfsyms); 


THEN REPORT THE NUMBER 


AND REMOVE EACH FROM TOP 
OF THE LIST, OUTPUTTING 
POINT TO SYMBOL NAME BLOCK 


iy net remque (.ink$gl_udfist, nxtsyment) 
rs) 


egin 
bind nxtsymnam = .nxtsyment = .nxtsyment Csym$b_naming] 
= snb$Sc_fxdlen : block C, Bytel; 


if not .nxtsyment Csym$v_intsym] 
then begin 
if not .nxtsyment Csym$v_weak] THE SYMBOL NAME 
then suffix = cstring (" ') WITH NULL OR ‘WEAK* 
else begin | 
| 


suffix = cstring (" (Weak Reference)'); SUFFIX DEPENDING ON THE REFERENCE 
nxtsyment Csym$v_aef] = true; BEING WEAK OR STRONG AND 
ENSURE WEAKS ARE NOW DEFINED 


NOW LIST THE SYMBOL PROVIDED 
NOT ALL WERE WEAK 


end; 


if .lnk$gw_nudfsyms neq 0 
then signal (LinS_udfsym, 2 
grateyance Csnb$b_naming], .suffix 


SET ITS VALUE TO 0 | 
AND MAKE IT ABSOLUTE 


! PROVIDED THIS IS NOT A 
BRIEF MA 
INSERT THE KEY (SYMBOL) IN 

CREF'S TABLE SO THAT WE MAY 

MAP UNDEFINED SYMBOLS 

AND IGNORE ERROR FROM CREF 

NOT INTERNALLY CREATED SYMBOL 


INTERNALLY CREATED--ZERO VALUE 
AND MAKE IT ABSOLUTE 


nxtsyment poyest_velyed = 0; 
nxtsyment Csym$v_rel = false; 


if not .lnk$gl_ctlmsk Clnk$v_brief) 

an . (nk$gl_ctlmsk pnk Sv aap, 

then crf$insrtkey ( (nk$al_sytbl fmt 
» Mxtsymnam Csnb$b_naming) 
» Nnxtsyment syast_valued 
geROrayaans sym$w_ flags 


AANA AI AAA AAA AIAN 


Re ee ee ee ee 


end 
else begin 
nxtsyment Csym$l_value] = 0; 
nxtsyment Csym$v_rel] = false; : 


NAME WN 0 OONA UE WIN $0 ODNAULS WIN $0 OONO UE WO OONOUE 


RR Nn te Gn aonb COOCOCOCOCCO 
ooo w USSSSSVSVRON UMS Sanoentunr-oSewenrowvees 


DPD PV PVP PUPP IUPUI SUPPLIES SUSE TSU SUSVSUSTUSOS ESOS SISIIOI 


WWNIWIIWPOPPPURUWWE FRR ARAL ARLE ELAR PUWWUOOROnonononononononons 
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end; 
end; 
00 
601 ‘ | 
io rth) LIST ANY UNDEFINED ENVIRONMENTS 
41 604 if - InkSqu_nudtenvs neq 0 
ri} 605 then begin 
4 O06 local envdesc : ref block C, byte); 
44 60 
$2 rt signal (Lin$_nudfenvs, 1, .lnk$gw_nudfenvs); 
é3 610 envdesc = .lnk$gl_udfenv (0); 


4 
voe=000 IESCOcHOBE QOLE:HE  UMalDNPLARST ARON SG SE. Page Sy 


signal a pe bag es nxtsymnam Csnb$b_naming], .suffix); ELL USER OF UNDEFINED LOCAL SYMBO 
ue 


$7 
nxtsyment Csym$!_va 0; ! DEFINE IT AS ABSOLUTE 0 


a SOIR AR UN SSH ae 


14 61 while .envdesc neq Lnk$gl_udfenv | : 
4 61 do begin : 
0 61 signal (Lin$_udfenv, 1, envdess Cnvd$b_naming)); ; 
1 61 envdesc = .envdesc Envd$l_udflink]; ; 
¢ 61 end; 3 
61 end; $ 
$B : 
$ e : LIST ANY UNDEFINED MODULE=LOCAL SYMBOLS : 
8 6 if - inkSqu_nudtlsyms neq 0 3 
9 6 then begin 3 
° signal (Lin$_nudflsyms, 1, .lnk$gw_nudflsyms); ! TELL THAT THERE ARE UNDEF. LOCAL SYMBOLS | : 
¢ ? — ny remque (.ink$gl_udflsy, nxtsyment) ' FOR EACH ONE OF THEM | 3 
© begin F 
bind nxtsymnam = .nxtsyment - .nxtsyment Csym$b_naming] - snb$c_fxdlen : block C, byte]; : 
6 if not .nxtsyment Csym$v_weak] ! SET SUFFIX TO SYMBOL MESSAGE | : 
6 then suffix = cstring (* °") : 
6 else bogie $ 
6 suffix = cstring (" (Weak Reference)'); ! IF IT'S WEAK, THEN SAY SO : 
6 nxtsyment Csym$v_def] = true; 3 
63 end; | 3 
63 3 
63 3 
63 ; 
3 3 
3 3 
4 : 
4 : 
4 : 

4 

4 

4 

4 


Be Se ee Oe Be Se Ge Be Se Oe ee Ge FH Se Se Ge FH Se Se Ge Se oe FH Se Se Ge FH Se Se BH Ge BH Se BH Ge HSH SH Se HSH Se Se ee Oe BH Se ws 

WAWAAIA NAA WA AAAA AAA AAAI AWA AAA NWA AWN NAAN WI 
ONO UE WO OD NOUN EWN OOO NAUES WN (OOO NOAUE WN OO ONOUS WN 
=PIPINPIMYPINPININPININI HAAN DININI HE BH HE PN B&B HF EF AWINIPIPIPINININV & Ew 


ee ae a ed a ad a ed td ws = = as = 2 — as 4 ot 8 8 = = 8 2 


3 
3 
3 6 nxtsyment Csym$v_relJ false; 
3 6 end; 
; ? end; 
3 64 if ter dbgtfps eql 0 ' IF NO DEBUGGER TRANSFER ADDRESS SEEN 
3 6 then if [nk$search (\nk$gt_imgsta, symtabent, symentnam) ! THEN LOOK UP SYSSIMGSTA 
; ? then Wa sSyetapent sym$v_def] ' AND IF DEFINED 
en begin 
6 inkSgl_dbgt fr = ,symtabent Csym$l_valuel; ! SET ITS ADDRESS | 
3 6 ink$gl_dbgtfps = 1; ' FLAG THERE IS A DEBUG XFR ADDRESS 
64 end; 
636 3 | 
65 i DEFINE ANY PSECTS SPECIFIED IN A PSECT= OPTION THAT WERE NOT 
$2 SPECIFIED IN A COLLECT PSECT OPTION 
65 ink$gl_curclu = Lnk$gl_defclu; ' SET TO DEFAULT CLUSTER 
o2 Lib$traverse_tree (ink$gl_pscdfist, checkpddentry); ! TRAVERSE THE TREE 
65 
65 end; 


return true; | 
} 

-PSECT $PLITS,NOWRT ,NOEXE , 2 | 

| 

| 


1 QOOA8 P.AAL: .BYTE 1 ; 
0 Q00A9 ASCII \_\ : 
1 oe P.AAM: .BYTE 17 : 
63 6€ 65 72 65 66 65 52 20 6B 61 65 57 28 20 OQOOAB ASCII \ (Weak Reference)\ : 


SN - + 


m 4 
LNK_OBJPASS1 16-Sep-1984 212: AX-11 Bliss-32 V4.0-7 Page 119) 
riresitd 19-808 - 138 00:18:38 LINKER. SRCJLNKOBJPS1. 5 2:1 . (45) 
29 65 OBA ; 
1 BC P.AAN: .BYTE 1 : 
° GOeE P.AAO “aese! i? : 
63 6€ 65 72 65 66 65 52 20 6B 61 65 57 3 20 OOBF «ASCII \ (Weak Reference)\ : | 
65 OO0fE : | 
.PSECT S$CODE$,NOWRT,2 | 
OFFC 00000 eENTRY aoa Save R2,R3,R4,R5,R6,R7,RB,RI,-; 3497 | 
58 000000006 00 9E 0000 MOVAB LNK$SEARCH : | 
SA £41 CF 9€ 0000 MOVAB LR STHISGOE SYR. "a10 : 
59 000000006 060 9€ 90006 MOVAB LIBSSIGNAL . Ro ; 
58 90000000 EF 9E 9901 MOVAB LNKSGT_SYSVER, R8 ; 
57 00000000' EF 9€ OOS MOVAB LNKSGW SUDFE YAS” R7 ; 
56 00000000" EF 9E 990 MOVAB SYMTABENT, R6 ; 
04 A6 9F OO02A PUSHAB SYMENTN AM : 3526 
56 DD 0002D PUSHL R6 ; 
58 DD 900 F PUSHL Rs : 
68 03 FB 00031 CALLS #3, LNKSSEARCH : 
04 Ab 9F 00034 PUSHAB SYMENTNAM + 3527 
56 DD 00037 PUSHL ; 
38 DD 00039 PUSHL Re ; 
000000006 00 03 FB 0003B CALLS @# LNKSINSERT ; 
50 66 D0 00042 MOVL SYMTA RO : 3528 
0A AO 0401 8F AB 0004 BISsw2 he eM OCROD : 3529 
50 DD 00048 PUSHL RO : 3530 
6A 01 FB 89040 CALLS LNKSINSUDF SYM : 
4C Ab 48 Ab 9E 00050 MOVAB OBAOD ESC+32, OBMODESC+36 : 3531 
000000006 00 28 Ab 9E 00055 MOVAB OBMODESC. LNK$GL_CUROMD : 3532 
000000006 00 00 FB 90050 1$: CALLS #0, LNKSNXTFIL : 3537 
45 50 €9 00064 BLBC Ooi : 
0870 C6 D4 00067 CLRL ~— LAST LNKOPT FDB : 3539 
F4 A? B6 00068 INCW LNKS$GW_NFILES 3: 3540 
50 000000006 00 00 00066 MOVL LNKSGL~ attati RO : 3541 
EO Ab 04 AO 9E 000 MOVAB 4(RO), LASTOBJMOD ; 
0c OA AO 01 €1 OOO7A BBC #i, 10(RO), 2$ : 3543 
04 AC DD 0007F PUSHL ARGLIST : 3544 
000000006 00 O01 FB 0082 CALLS #1, LNKSPROCSLIB ; 
0c 11 0008 BRB $ F 
C OA Ad ; E1 99 2$: BBC a, 10(RO), 4$ : 3545 
000000006 00 FB 00 CALLS 4&0, LNKSPROCSHRIM : 3546 
07 0 €9 00097 3s: BLBC ~=_-aRO,. 58 ; 
: 11 009A BRB F 
1ABA CA FB 009C 4$: CALLS #0, LNKSPROCSOBJ : 3547 
03 0 ; OOAI 5$: BLBS = RO, 6$ ; 
0166 31 OOOA4 BRW 2 ; 
EO B6 D4 OO0A7 6S: CLRL SL ASTOBJMOD ; 3551 
B1 11 OOOAA BRB 1 ; 337 
000000006 09 D4 OA 7$: CLRL _ LNK$GL_CUROMD : 33 8 
F6 A 83 5 TST NK$GW"NMODULES : 3560 
dD 1 OB BNEQ $ ; 
000000006 8F oD 000B PUSHL sLINS NOMODS : 
000000006 00 1 FB 000BD CALLS , LIBSSTOP ; 


N 4 
16-Sep-1984 212: AX-11 Bliss-32 V4.0-74 Page 120. 
12-808- 1382 00:18:38 LINKER. SRCJLNKOBJPS1.832;1 ° Rise 
7 C4 8S: MOVZWL LNKSGW_NUDFSYMS, RO : 3562) 
D if ots BEQL 5 - : 
0 oD o¢9 PUSHL RO : 3563) 
1 DD 000CB PUSHL #1 : | 
000000006 8F DD OCD PUSHL HL INS NUDF SYMS : | 
69 3 FB 000D CALLS #5, ET8SS1GNAL : 
52 BA 87 oF 9006 98: REMOUE @LNKSGL_UDFLST, NXTSYMENT : 3565 
50 OF Ae 9A 9006 HOV ZBL 15(NXTSYMENT), RO + 3567 
50 3¢ 5 3 O0E SUBL3_ RO, NXTSYMENT. RO : 
; FB Ap E O00E4 MOVAB =5(RO), R : 3568 
4 OA A2 9 OOEB MOVAB 10(NXTSYMENT), R4 : 3570 
50 64 OA E EC BBS #i0, (RO), 138 : 
06 64 . SO0FO BLBS (R45, : 3572 
c 47 ag E OOOF MOVAB P.AAL, SUFFIX : 357 
07 11 000F7 BRB 11$ : 
55 49 AB H 000F9 10$ OVAB P.AAM, SUFFIX : 3575 
64 ie 88 OOOFD BISB2 #2, (R4) : 3576 
4 8 00100 11$ STW  LNKSGW_NUDFSYMS : 3579 
10 13 00102 a 12s : 
55 DD 00104 PUSHL SUFFIX + 3581 
04 A3 9F 00106 PUSHAB 4(R3) : 
02 DD 00109 PUSHL #2 : 
000000006 8F DD 0010B PUSHL INS_UDF SYM : 
69 04 FB 00111 CALLS #4, LIBS$SIGNAL ; 
62 0400114 128:  CLRL (NXTSYMENT) > 3584 
64 08 8A 00116 BICB2 #8, (R4) : 3585 
B5 000000006 00 01 £0 00119 BS #1, LNKSGL_CTLMSK+1, 9$ : 3587 
AD 000000006 00 04 FI 00121 BC #4, LNKSGL-CTLMSK, 9$ : 3588 
7E 64 3C 00129 MOVZWL (R4), -(SPY : 3592 
52 DD 0012¢ USHL NXTSYMENT : 3591 
04 A3 OF O01¢E PUSHAB 4(R3) : 3590 
000000006 00 9F 00131 PUSHAB LNKSAL_SYTBLFMT : 3589 
000000006 00 04 FB 00137 CALLS #4, CRFSINSRTKEY : 3591 
96 11 0013E BRB : 3570 
62 D4 00140 13$:  CLRL.  (NXTSYMENT) : 3596 
64 08 8A 00142 BICB2 #8, (R4) : 3597 
8F 11 0014 BRB 9$ : 3565 
50 06 A? 3¢ 00147 14%:  MOVZWL LNKSGW_NUDFENVS, RO : 3604 
2D 13 00148 BEQL  16$ ; 
50 DD 0014D PUSHL RO : 3608 
01 DD 0014F PUSHL #1 : 
000000006 8F DD 00151 PUSHL #LINS_NUDFENVS : 
4 0 FR Bo 7 CALLS #3, LYBSSIGNAL : 

4 (6 «OA : 15A MOVL §LNKSGL_UDFENV, ENVDESC : 3610 
50 C6 A? F 01 15$:  MOVAB LNK$GL UDFENV, RO : 3611 
50 54 D1 0016 CMPL ENVDESC, R : 

13 13 0016 BEQL 6$ : 
12 Aa 9F 90167 PUSHAB 18 (ENVDESC) : 3613 
1 DD OO16A PUSHL #1 : 
000000006 8F DD O16 PUSHL #LINS_UDFENV ; 
9 36F 1 CALLS #3, LIBSSIGNAL 3 
4 64 D0 0017 MOVL (ENVDESC), ENVDESC > 3614 
E4 } 17 BRB : 3611, 
50 04 A7 § 17A 168: MOVZWL Le See JAE SINS, RO $ 621 | 
48 1 Ve BEQL 0$ ; | 
50 DD 0018 PUSHL RO > 3623 | 


LNK PASS! 
v04=000 


; Routine Size: 


50 


08 


528 bytes, 


1 
3660 ! 
le 


OA 


OA 


OA 
DA 


DE 
000000006 


000000006 


Routine Base: 


3 ¢ nd 
3663 0 eludes 


9 000000006 
eek. 
52 OF 
5 
96 OA 

58 
55 5D 
A2 
04 
000000006 
69 
A2 
DE 
04 
00000006 
68 
10 
50 
AQ 
A? 
A7 
00 ansaat *% 
000000006 
00 
50 
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18$: 
19$: 


208: 


218: 


228: 


71986 92:45:38 


-EXTRN 


AX-11 Bliss-32 v4.0 
LINKER.SRC LNKOBJPS1. 5 2;1 


ALINS perks yes 
bch UDFLSY, NXTSYMENT 


(NXTSYMENT), RO 
, » NXTSYMENT, RO 


R 
TO(NXTSYMENT) , 18$ 
i SUFFIX 


P.AAO FIX 

#2 16 cits MENT) 
sae FI 

ecRO}. 


#2 
#LINS_UDFSYM 
#4, LIBSSIGNAL 
(NXTSYMENT) 
“ 10(NXTSYMENT) 
LNKS$GL_DBGTFPS 
SYMENTNAM 


"vege IMGSTA 
PR SSEARCH 


SYATABENT RO 
10(ROS, 21$ 
tRO) LNK$GL_DBGTFR 
#1, CNKSGL_DBGTFPS 
LNKS$GL pert, LNKSGL_CURCLU 
CHECKPDDENT 
LNK$GL_P ECDr Ust 
He, » LIBSTRAVERSE, TREE 


RO 


LIBSSIGNAL, LIBSSTOP 


Pa 121 
9¢ 48) 


Se Se Se Se Se Se Se Be Se Se Be Ge Be Se Se Be Se Be Se Fe Se Se Be Ge Se Be Be Be Se Fe Fa Fe Se Fe Fe Be Se Be Ge Se 


Bete ee Oe Te oe ee 


LNK PASS1 
yOc2000 


Name 
SGLOBALS 
SOWNS 
SPLITS 
none 


File 


~-$255$DUA28: 
~$255$DUA28: 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:LNKOBJPS1/0BJ=0BJ$:LNKOBJPS1 MSRC$:LNKOBJPS1/UPDATE=(ENHS$:LNKOBJPS1) 


; Size: 

; Run Time: 

; Elapsed Time: 
; Lines/CPU Min: 


NOVEC, WRT, RD, 


66 NOVEC, WRT, RD 
a 


VEC,NOWR RD ; 
NOVEC,NOWRT,NORD , 


Library Statistics 


ccoccece Symbols 

Total idaded 
CSYSLIBILIB.L32;1 18619 210 
CLINKER.OBJJDATBAS.L32;1 538 185 


COMMAND QUALIFIERS 


8283 code + 2494 data bytes 
02:34.2 
04 :59.0 


1425 
; Lexemes/CPU-Min: 23122 
; Memory Used: 
: Compile 


540 pages 


tion Complete 


AX-11 Bliss-32 V4.0-7 
LINKER. SRCJLNKOBJPS1. ; 231 


sola 00:13: 
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